中国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啊？

wmic不错

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

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

@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' 不是内部或外部命令，也不是可运行的程序
或批处理文件。