ProductVersion
ProductVersion retorna as propriedades de versão do produto do arquivo, se tais informações existirem.
Sintaxe
ProductVersion
Retorno
Cadeia de caracteres.
Exemplo
Exibe a versão do produto de calc.exe:
Function 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(“A versão do produto Calc.exe é : " & ver)
textfile.Close
End If
End Function