ProductVersion
ProductVersion 返回文件的产品版本属性（如果此类信息存在）。
语法
ProductVersion
返回结果
字符串
示例
显示 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.ProductVersion
echo("您的 Calc.exe 产品版本为： " & ver)
textfile.Close
End If
End 函数