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

Название темы: синтаксис On Error
Показать сообщение отдельно

Аватара для Dr.Dark

Старожил


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

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


Решил проблему так:
Код: Выделить весь код
Dim WSH  Set FSO = CreateObject("Scripting.FileSystemObject")  Set WSH = CreateObject("WScript.Shell")  if FSO.GetFileName(Wscript.FullName)="WScript.exe" then   WSH.Run "Cscript.exe "&Wscript.ScriptFullName,"1"   Wscript.Quit  end if

-------
Спасение утопающих-дело рук самих утопающих.


Отправлено: 11:42, 26-08-2008 | #9

Название темы: синтаксис On Error