scripting - 如何编写 VB 脚本来搜索文件并显示其版本信息？

Question

我正在尝试创建一个 vb 脚本，该脚本允许我搜索文件的目录和子目录，获取其位置和版本信息。

该文件可以是 .dll 或 .exe 等任何文件。

在命令提示符下，我可以使用 : dir /s /bc:(filename) 来搜索文件。

如何结合这两个要求？

有没有办法做到这一点？

Answer 1

这是一个枚举文件夹及其子文件夹并从 exe 文件中获取文件版本的示例，请注意，这不是产品版本。

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\windows")
Set colFiles = objFolder.Files

enum_files colFiles
For Each objFolder in objFolder.Subfolders
  Set colFiles = objFolder.Files
  enum_files colFiles
Next

Sub enum_files (colFiles)
  For Each objFile in colFiles
    if lCase(objFSO.GetExtensionName(objFile)) = "exe" then
      Wscript.Echo objFile.path & " " & objFSO.GetFileVersion(objFile.path)
    end if
  Next
End sub