ProductVersion
ProductVersion devuelve la propiedad de versión del producto de un archivo si esta información existe.
Sintaxis
ProductVersion
Devolución
Cadena.
Ejemplo
Muestra la versión del producto 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("Su versión del producto de Calc.exe es : " & ver)
textfile.Close
End If
End Function