iNNOKENTIY21
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: Sub FileExists(file) If (NOT fso.FileExists(file)) Then WScript.Echo file, " - не найден." Call EndScript() End If End Sub Sub EndScript If (NOT IsNull(fso)) Then Set fso = Nothing End If If (NOT IsNull(objShell)) Then Set objShell = Nothing End If WScript.Quit End Sub Set fso = CreateObject("Scripting.FileSystemObject") if WScript.Arguments.Count = 0 then WScript.Echo "Нет параметров!" Call EndScript() end if Dim file Dim arg if WScript.Arguments.Count >= 1 then file = Wscript.Arguments(0) WScript.Echo file end if if WScript.Arguments.Count >= 2 then arg = Wscript.Arguments(1) WScript.Echo arg end if Call FileExists(file) cmd = file & " " & args Set shell = CreateObject("WScript.Shell") shell.Run cmd, 0, false Call EndScript() |
|