提取文件版本信息（版本号） - 中国DOS联盟论坛

请问：如何将windows文件夹中的文件名称和版本号用命令行提取出来，并存到一个txt文件中？文件大都是.exe,.dll格式。多谢。

不一定一定要用批处理，用其他语言也可以，能不能给出例子呢？谢谢．

[ Last edited by mandyonly on 2007-6-7 at 04:27 PM ]

批处理提取版本号估计没戏，VBS以前试过可以，不过现在忘了

wmic datafile where "Name='c:\\windows\\explorer.exe'" get Manufacturer,Version,Filename

这时用什么语言写的？

wmic datafile where "Name='c:\\windows\\explorer.exe'" get Manufacturer,Version,Filename

是P啊？

如果文件是多个，存在一个文件夹中，我要提取的是文件夹中的所有的文件名和版本，而不是５楼说的具体的一个文件名，该怎么办呢？

//我要提取的是文件夹中的所有的文件名和版本


@echo off
set Target=C:\\test
cd %Target%
for %%i in (*.*) do (
  rem echo %%i
  wmic datafile where "Name='%Target%\\%%i'" get Manufacturer,Version,Filename
  )

wmic /output:result.log datafile where "Path='\\windows\\system32\\' and Drive='C:' and (Extension='dll' or Extension='exe')" get Manufacturer,Version,Caption

运行时间可能稍长点，耐心等待。。

VBS的，只提取有版本号的“应用程序”（exe）、“应用程序扩展”（dll）

Path = "C:\windows"

Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(Path)

For Each strFileName in objFolder.Items
    name = objFolder.GetDetailsOf(strFileName, 0)
    Extension = objFolder.GetDetailsOf(strFileName, 2)
    ver = objFolder.GetDetailsOf(strFileName, 37)
  If not ver = "" Then
    If Extension = "应用程序" Then
      str = str & name & ".exe:" & ver & vbCrLf
    Else
      If Extension = "应用程序扩展" Then str = str & name & ":" & ver & vbCrLf
    End If
  End If
Next

Set fW = fso.OpenTextFile("result.log", 2, True)
  fW.WriteLine str
  fW.close

所有的“应用程序”（exe）、“应用程序扩展”（dll）都提取

Path = "C:\windows"

Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(Path)

For Each strFileName in objFolder.Items
    name = objFolder.GetDetailsOf(strFileName, 0)
    Extension = objFolder.GetDetailsOf(strFileName, 2)
    ver = objFolder.GetDetailsOf(strFileName, 37)
    If Extension = "应用程序" Then
      str = str & name & ".exe:" & ver & vbCrLf
    Else
      If Extension = "应用程序扩展" Then str = str & name & ":" & ver & vbCrLf
    End If
Next

Set fW = fso.OpenTextFile("result.log", 2, True)
  fW.WriteLine str
  fW.close

[ Last edited by zh159 on 2007-6-9 at 10:21 PM ]

哦，好东东亚。

要这么麻烦吗?
用"filever /v filename" 命令就可以得到一个文件的版本信息.

filever 是个三方工具？

Originally posted by wbshu at 2007-7-6 10:42:
要这么麻烦吗?
用"filever /v filename" 命令就可以得到一个文件的版本信息.

C:\>filever/?
'filever' 不是内部或外部命令，也不是可运行的程序
或批处理文件。

第1楼　mandyonly	发表于 2007-06-07 16:08
初级用户　发帖 9　积分 28
提取文件版本信息（版本号）请问：如何将windows文件夹中的文件名称和版本号用命令行提取出来，并存到一个txt文件中？文件大都是.exe,.dll格式。多谢。不一定一定要用批处理，用其他语言也可以，能不能给出例子呢？谢谢． [ Last edited by mandyonly on 2007-6-7 at 04:27 PM ]

第2楼　zh159	发表于 2007-06-07 16:19
金牌会员　发帖 1,467　积分 3,687
批处理提取版本号估计没戏，VBS以前试过可以，不过现在忘了

第3楼　yong119	发表于 2007-06-07 16:41
新手上路　发帖 10　积分 19
wmic datafile where "Name='c:\\windows\\explorer.exe'" get Manufacturer,Version,Filename

第4楼　mandyonly	发表于 2007-06-07 16:47
初级用户　发帖 9　积分 28
这时用什么语言写的？

第5楼　wudixin96	发表于 2007-06-07 17:05
银牌会员　发帖 931　积分 1,928
wmic datafile where "Name='c:\\windows\\explorer.exe'" get Manufacturer,Version,Filename 是P啊？

第6楼　zh159	发表于 2007-06-07 17:12
金牌会员　发帖 1,467　积分 3,687
wmic不错

第7楼　mandyonly	发表于 2007-06-07 17:13
初级用户　发帖 9　积分 28
如果文件是多个，存在一个文件夹中，我要提取的是文件夹中的所有的文件名和版本，而不是５楼说的具体的一个文件名，该怎么办呢？

第8楼　HAT	发表于 2007-06-07 17:33
版主　发帖 5,017　积分 9,023
//我要提取的是文件夹中的所有的文件名和版本 @echo off set Target=C:\\test cd %Target% for %%i in (.) do ( rem echo %%i wmic datafile where "Name='%Target%\\%%i'" get Manufacturer,Version,Filename )

第9楼　mandyonly	发表于 2007-06-07 18:02
初级用户　发帖 9　积分 28
多谢！

第10楼　lxmxn	发表于 2007-06-08 02:12
版主　发帖 4,938　积分 11,386
我也来玩玩 wmic /output:result.log datafile where "Path='\\windows\\system32\\' and Drive='C:' and (Extension='dll' or Extension='exe')" get Manufacturer,Version,Caption 运行时间可能稍长点，耐心等待。。

第11楼　zh159	发表于 2007-06-09 22:19
金牌会员　发帖 1,467　积分 3,687
VBS的，只提取有版本号的“应用程序”（exe）、“应用程序扩展”（dll） Path = "C:\windows" Set fso = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(Path) For Each strFileName in objFolder.Items name = objFolder.GetDetailsOf(strFileName, 0) Extension = objFolder.GetDetailsOf(strFileName, 2) ver = objFolder.GetDetailsOf(strFileName, 37) If not ver = "" Then If Extension = "应用程序" Then str = str & name & ".exe:" & ver & vbCrLf Else If Extension = "应用程序扩展" Then str = str & name & ":" & ver & vbCrLf End If End If Next Set fW = fso.OpenTextFile("result.log", 2, True) fW.WriteLine str fW.close 所有的“应用程序”（exe）、“应用程序扩展”（dll）都提取 Path = "C:\windows" Set fso = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(Path) For Each strFileName in objFolder.Items name = objFolder.GetDetailsOf(strFileName, 0) Extension = objFolder.GetDetailsOf(strFileName, 2) ver = objFolder.GetDetailsOf(strFileName, 37) If Extension = "应用程序" Then str = str & name & ".exe:" & ver & vbCrLf Else If Extension = "应用程序扩展" Then str = str & name & ":" & ver & vbCrLf End If Next Set fW = fso.OpenTextFile("result.log", 2, True) fW.WriteLine str fW.close [ Last edited by zh159 on 2007-6-9 at 10:21 PM ]

第12楼　benteng302	发表于 2007-06-10 08:07
初级用户　发帖 41　积分 88
哦，好东东亚。

第13楼　wbshu	发表于 2007-07-06 10:42
初级用户　发帖 13　积分 25
要这么麻烦吗? 用"filever /v filename" 命令就可以得到一个文件的版本信息.

第14楼　lxmxn	发表于 2007-07-06 10:46
版主　发帖 4,938　积分 11,386
filever 是个三方工具？

第15楼　zh159	发表于 2007-07-06 11:57
金牌会员　发帖 1,467　积分 3,687
Originally posted by wbshu at 2007-7-6 10:42: 要这么麻烦吗? 用"filever /v filename" 命令就可以得到一个文件的版本信息. C:\>filever/? 'filever' 不是内部或外部命令，也不是可运行的程序或批处理文件。