COMPARAR VERSOES

AMELORP 28/08/2009 18:27:34
#321285
Tenho um sistema que atualizo constantemente...o usuarios estao em rede...coloco a versão nova em um drive mapeado da rede (S:\) e quando eles logam na rede (dominio) criei um script pra atualizar o sistema que copia o que esta na pasta s:\ pra pasta do sistema c:\ mas isso as vezes demora...queria ver se era possivel criar uma rotina no sistema que quando eu colocasse a versão nova no s:\ entao essa função ficaria verificando a cada 10 min ou tempo determinado se há no s:\ um exe mais novo do que o que esta na maquina do usuario...alguem saberia me ajudar? agradeço antecipadamente....
ASHKATCHUP 28/08/2009 19:48:47
#321290
Resposta escolhida
Para pegar a versão, vc faz assim:



Private Sub Command1_Click()
Dim arquivo As Object
[ô]
Set arquivo = CreateObject([Ô]Scripting.FileSystemObject[Ô])
[ô]
MsgBox arquivo.getfileversion(Text1.Text)
End Sub


Tópico encerrado , respostas não são mais permitidas