FileVersion
如果文件分配有必要的属性，FileVersion 将返回文件的版本。
语法
FileVersion (String)
返回结果
如果文件版本信息存在，则为文件的版本（返回字符串）。
示例
显示 calc.exe 的文件版本：
函数 Main
Dim textfile As Object
Dim ver As String
Set textfile = File.Connect("127.0.0.1")
If textfile.Open("c:\windows\system32\calc.exe", GENERIC_READ, Open_Existing) Then
ver = Textfile.FileVersion
echo("您的 Calc.exe 文件版本为： " & ver)
textfile.Close
End If
End 函数