如何用VBS读取文件*.DLL *.EXE的文件版本信息，系统属性等 - 中国DOS联盟论坛

Function GetVersion(pathspec)
   Dim fso, temp
   Set fso = CreateObject("Scripting.FileSystemObject")
   temp = fso.GetFileVersion(pathspec)
   If Len(temp) Then
      GetVersion = temp
   Else
      GetVersion = "无可用版本信息！"
   End If
End Function


Function GetAttributes(pathspec)
   Dim fso, f, temp, str
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(pathspec)
   temp = f.Attributes
   str = ""
   If temp and 4 Then str = str & "系统"
   If temp and 2 Then str = str & "隐藏"
   If temp and 1 Then str = str & "只读"
   If str = "" Then str = "普通"
   GetAttributes = str
End Function


filepath = "C:\Windows\system32\shell32.dll"
msgbox filepath & " 的版本是 " & GetVersion(filepath)
msgbox filepath & " 的属性是 " & GetAttributes(filepath)

[ Last edited by qinchun36 on 2010-1-5 at 10:00 ]

第1楼　piziliu2004	发表于 2010-01-04 18:46
中级用户　发帖 139　积分 321
*如何用VBS读取文件.DLL .EXE的文件版本信息，系统属性等* 如题：如何用VBS读取文件.DLL .EXE的文件版本信息，系统属性等

第2楼　qinchun36	发表于 2010-01-04 20:06
高级用户　发帖 400　积分 609
Function GetVersion(pathspec) Dim fso, temp Set fso = CreateObject("Scripting.FileSystemObject") temp = fso.GetFileVersion(pathspec) If Len(temp) Then GetVersion = temp Else GetVersion = "无可用版本信息！" End If End Function Function GetAttributes(pathspec) Dim fso, f, temp, str Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(pathspec) temp = f.Attributes str = "" If temp and 4 Then str = str & "系统" If temp and 2 Then str = str & "隐藏" If temp and 1 Then str = str & "只读" If str = "" Then str = "普通" GetAttributes = str End Function filepath = "C:\Windows\system32\shell32.dll" msgbox filepath & " 的版本是 " & GetVersion(filepath) msgbox filepath & " 的属性是 " & GetAttributes(filepath) [ Last edited by qinchun36 on 2010-1-5 at 10:00 ]

第3楼　piziliu2004	发表于 2010-01-04 21:46
中级用户　发帖 139　积分 321
Thanks. 2楼。呵呵之前一直没找到GetFileVersion函数，呵呵