中国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)