Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Здесь неточность:
читать дальше »
Цитата deepred:
Код: Выделить весь код
On Error resume Next
    …
    If input is nothing Then
       Wscript.Quit 0
    End if
с «Nothing» можно сравнивать только объекты. Здесь же «input» — простая переменная, при нажатии кнопки «Отмена» принимающая пустое значение («Empty»):
Код: Выделить весь код
input = InputBox("Введите имя папки")
WScript.Echo TypeName(input)
Цитата:
Код: Выделить весь код
Empty
На мой взгляд, «On Error resume Next» здесь не требуется и достаточно будет аналогичной проверки:
Код: Выделить весь код
…
input = InputBox("Введите имя папки")

If IsEmpty(input) Then
    WScript.Quit 0
End if
…
Это сообщение посчитали полезным следующие участники:

Отправлено: 22:08, 09-08-2010 | #11