[решено] Определение версии файла

amel27 · Отправлено: **12:29, 18-06-2010** | #4

1.

Код:

If FSO.FileExists(sFile) Then
  If FSO.GetFileVersion(sFile) <> "1.1" Then
    SendMail sTo, sFrom, sSubj, "версии не совпадают"
  End If
  If FSO.GetFile(sFile).Size <> 255 Then
    SendMail sTo, sFrom, sSubj, "размер не совпадает"
  End If
Else
  SendMail sTo, sFrom, sSubj,"файл не найден"
End If

2.

Код:

sFile = WS.ExpandEnvironmentStrings("%SystemRoot%")& "\хх\х.ехе"
sFile = WS.ExpandEnvironmentStrings("%ProgramFiles%")& "\хх\х.ехе"