Question

VBS获取文件名和版本号

例如：我想获取酷狗安装目录下的所有dll和exe的文件名字和版本号，我知道酷狗的安装目录注册表位置是HKEY_CURRENT_USER\Software\KuGou
怎么用批处理实现，谢谢各位大牛帮忙解决下！
另外我还想深层次了解下，例如这个软件安装路径是这样的kugou目录下有两个文件夹，里面都有文件dll和EXE文件
d:\kugou\common（这里面也有文件）
d:\kugou\kuku(这里面也有文件)
我需要知道这两个文件里所有的exe和dll文件名字和版本号。
但是注册表只有两个键值一个名字分别是：
名称 键值 数据
默认 REG_SZ d:\kugou\common\kugou.exe
path REG_SZ d:\kugou

Answer 1

Set ws = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
kugou = ws.regRead("HKCU\Software\KuGou\AppPath")
For Each f In FSO.GetFolder(kugou).Files
  ext = LCase(Right(f.Name, 4))
  If ext = ".exe" Or ext = ".dll" Then
    s = s & f.Name & vbTab & FSO.GetFileVersion(f.Path) & vbCrLf
  End If
Next
MsgBox s

追问

恩，谢谢了。
我是菜鸟，对于这些脚本不知道啥意思，能麻烦您给每句后面注释下吗，谢谢！
我还有点问题，能否加你私信聊下，谢谢！

追答

Sub fv(p)
  For Each f In p.Files '遍历文件
    ext = LCase(Right(f.Name, 4)) '获取扩展名
    If ext = ".exe" Or ext = ".dll" Then
      s = s & f.Path & vbTab & FSO.GetFileVersion(f.Path) & vbCrLf
      '文件路径和文件版本
    End If
  Next
  For Each f In p.SubFolders '遍历文件夹
    fv f '递归
  Next
End Sub
Set ws = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
kugou = ws.RegRead("HKCU\Software\KuGou\path") '获取酷狗目录
s = ""
fv FSO.GetFolder(kugou) '获取kugou目录所有的exe和dll文件名和版本号
MsgBox s