FileVersion
FileVersion retorna a versão do arquivo se este tiver todas as propriedades necessárias atribuídas.
Sintaxe
FileVersion (cadeia de caracteres)
Retorno
Versão do arquivo, se essa informação existir (retorna uma cadeia de caracteres).
Exemplo
Exibe a versão de arquivo 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.FileVersion
echo(“A versão do arquivo Calc.exe é : " & ver)
textfile.Close
End If
End Function