VERSAO DO ARQUIVO

LUCIANORW 11/08/2009 14:42:35
#319574
Boa tarde!!!
Clicando com o botão direito do mouse sobre um arquivo executável, na guia Versão, tem o campo Versão do arquivo.
Tem como descubrir esse valor usando um código vb/vba?
[][ô]s
Luciano
ROBIU 11/08/2009 15:03:59
#319579
Resposta escolhida
Use o FSO - FileSystemObject
Vá em Referencias e procure por Microsoft Scripting Runtime

depois declare a variável na seção geral do form

Option Explicit
Dim FSO As FileSystemObject
Dim Caminho As String


no evento que você quer chamar o valor:

Set FSO = New FileSystemObject
Caminho = [Ô]C:RaisNet2008Raisnet2008.exe[Ô][ô]Aqui colocamos o caminho completo do arquivo com a Barra invertida. Estranho que coloco a Barra mas não aparece!
If FSO.FileExists(Caminho) Then
MsgBox FSO.GetFileVersion(Caminho)
Else
MsgBox [Ô]Arquivo não encontrado no caminho especificado[Ô]
End If
Set FSO=Nothing


Em geral, é isso

Mais o FSO é bastante amplo e podemos fazer todas operações de arquivos e pastas com ele.
Para ver todos recursos do FSO click aqui
LUCIANORW 11/08/2009 16:18:53
#319591
Vixi, quando eu ia responder, você já tinha respondido.
Function nada()
[ô]/// fazer referencia a Microsoft Scripting Runtime
Dim FSO As New FileSystemObject
MsgBox [Ô]Versão do arquivo: [Ô] & FSO.GetFileVersion([Ô]d: empIE8-WindowsXP-x86-PTB.exe[Ô])
End Function

Roberto, muuuuuuuuito obrigado.
[][ô]s
Luciano
Tópico encerrado , respostas não são mais permitidas