[Petya V4sechkin]

korenza, как-то так?

Код:

Dim Input, MyVar
Do Until False
  Input = InputBox("Введите путь к файлу проверки")
  If Input = "" Then
    MyVar = MsgBox("Вы не ввели путь к файлу", vbRetryCancel + vbExclamation, "Демонстрационное окно сообщения")
    If MyVar = vbCancel Then WScript.Quit
  Else
    Exit Do
  End If
Loop
Set FSO = CreateObject("Scripting.FileSystemObject")
WScript.Echo FSO.GetFileVersion(Input)

И соответственно в диалоге ввода пути отмена тоже выход из скрипта.

При нажатии кнопки Отмена (или клавиши Esc) InputBox возвращает пустую строку, и это невозможно разграничить с вводом пустой строки при нажатии ОК (или клавиши Enter).

[korenza]

Petya V4sechkin, Большое спасибо, а то я со своими экспериментами с DO LOOP - ом, встрял в бесконечный цикл.