![]() |
Проверка наличия и запуск нескольких файлов
Всем доброго дня ! Посоветуйте пожалуйста , как лучше реализовать следующую последовательность действий в VBS :
Допустим, есть исполняемые файлы - 1.exe,2.exe,3.exe 0. проверка наличия 1.exe,2.exe,3.exe в папке со скриптом и в случае отсутсвия одного или нескольких файлов - появление MSGBOX с произвольным текстом и перечисление отсутствующих файлов. В случае появления MSGBOX - пункты 1,2,3 пропускаются - скрипт завершается. 1. проверка наличия запущенного процесса 1.exe и в случае его ..кхм...наличия - завершение процесса и запуск 3.exe. 2. одновременное выполнение 1.exe, а затем 2.exe (без ожидания завершения 1.exe) 3. ожидание завершения 2.exe пользователем, а затем завершение процесса 1.exe и после - выполнение 3.exe |
id342181564@vk,
Цитата:
|
а дальше по порядку)
Цитата:
|
В меру моего понимания Вашей постановки задачи
Код:
exe1 = "notepad.exe" |
спасибо большое) всё работает , осталось только изучить в подробностях и кое что подправить. К примеру : PScript = "C:\Windows\System32\" - эта строка определяет путь к файлам ? Если убрать PScript из строчек вроде : Answer = WshS.Run(PScript + exe1, 1, False) - всё работает на отлично - в противном случае, выдает ошибку об отсутствии файла (хотя msgbox не появляется, если файлы лежат в той же папке - что и скрипт, что в общем то и требовалось).
|
Еще хотел спросить по поводу этого пункта
Код
' Если выполняется exe1, и нет exe2 то завершаем exe1 и запускаем exe3
If ExistProc(exe1, False) And Not ExistProc(exe2, False) Then Answer = ExistProc(exe1, True) Answer = WshS.Run(exe3, 1, False) WScript.Quit End If - тут по задумке скрипт должен не завершаться на выполнении exe3 - а начинать выполнение заново , либо с запуска только что завершенного exe1 и затем exe2 , и далее продолжать работу. Как это лучше реализовать? |
id342181564@vk, строка ' PScript = "C:\Windows\System32\" начинается с апострофа ', она не исполняется, мне она была нужна для отладки для ссылок на существующие файлы. В предыдущей строке определяется путь к скрипту, Вы требовали, чтобы екзешники лежали в той же папке, и в таких условиях это работает. Если все файлы лежат по одному пути, то в закомментированной строке уберите апостроф и пропишите свой путь. Если для каждого экзешника Вы хотите указывать персональный путь, примените PScript = "", а вместо имени файла укажите полный путь имени файла.
|
спасибо большое за столь развернутый ответ и труды) все работает отлично !
Хотел спросить вас еще на тему VBS, то это уже будет немного оффтоп - если конечно вас не затруднит? |
Цитата:
Вот вариант
Код:
exe1 = "notepad.exe" Цитата:
|
Время: 16:27. |
Время: 16:27.
© OSzone.net 2001-