Set FSO= CreateObject("Scripting.FileSystemObject") sFile = "C:\Program Files\1cv81\bin\comcntr.dll" If FSO.FileExists(sFile) Then msgbox FSO.GetFileVersion(sFile) Else msgbox "Файл не найден!" End If