Консультация № 59104
16.10.2006, 13:51
0.00 руб.
0 7 3
Здравствуйте, уважаемые Эксперты.
Не могу создать BAT-файл, который в свою очередь выполнял бы следующие действия:
в каталоге (например: d:\My Downloads) запускал бы поочереди ВСЕ имеющиеся в этом каталоге BAT-файлы (*.bat), причем имена у этих файлов могут быть любые.

Обсуждение

давно
Бакалавр
19238
405
16.10.2006, 14:28
общий
это ответ
Здравствуйте, Пепеляев Александр Павлович!
Создаете файл с расширениям “vbs” и копируете туда исходный код и запускаете его как обычный файл он все сделает за вас. (я добавил в нем комментарии, чтобы было понятно)

Приложение:
‘Объект для запуск приложениеSet WshShell = CreateObject("WScript.Shell")‘Объект для доступ к файловой системеSet fso = CreateObject("Scripting.FileSystemObject")‘Путьfold="D:\My Downloads"‘Инициализаций путьSet f = fso.GetFolder(fold)Set fc = f.Files ‘Перебор файлов в папке For Each f2 in fc s = s & f2.name s = s & "<BR>" ‘Есть расширение файла BAT или bat то войти If Right(f2,3) = "BAT" Or Right(f2,3) = "bat" Then ‘Вызов функций запуск BAT файла Call Run_Bat(f2) End If Next ‘Функций запуск BATFunction Run_Bat(name)‘ЗапускSet oExec = WshShell.Exec(name)‘Пауза пока файл запушенDo While oExec.Status = 0WScript.Sleep 100LoopEnd Function
Неизвестный
16.10.2006, 14:32
общий
это ответ
Здравствуйте, Пепеляев Александр Павлович!

Создайте bat-файл (<b>main.bat</b>) с таким содержимым:

<b><font color=purple>for %%t in (c:\bat\*.bat) do start %%t</font></b>

И далее в папке <b>c:\bat</b> сложите все bat-файлы которые необходимо запустить.
Запускаете файл <b>main.bat</b> и радуетесь...

Удачи!!!
Неизвестный
16.10.2006, 14:37
общий
<b>To Габриель.</b>Помоему человек просил написать BAT-файл, а не давать уроки по программированию высоких материй...Но лично для меня было интерестно прочитать такой подход....:о)
давно
Бакалавр
19238
405
16.10.2006, 14:45
общий
Ну как знать, (конечно он хотел bat файл. Я это не отрицаю) а вот другой захотел EXE файл запускать или чего-то менять, а тут все ясно меняешь расширения файла и все ок ! :-)
Неизвестный
16.10.2006, 14:57
общий
Да и в моем подходе тоже можно поменять расширение.... Рад был пообщаться, а то как то раздел не очень то часто посещаемый...:о)
давно
Бакалавр
19238
405
16.10.2006, 15:02
общий
:-)
Неизвестный
18.10.2006, 14:33
общий
это ответ
Здравствуйте, Пепеляев Александр Павлович!

За пуск из main.bat содержания:
<b>call</b> BatchFile.bat file3 file10 file2 file6

То есть скармливаешь BatchFile.bat`у строку содержащую твои bat-сценарии в <b>определённом порядке</b>!!




Приложение:
rem Content BatchFile.bat cd "d:\My Downloads" :loop if "%1" == "" goto end call %1 shift goto loop :end exit
Форма ответа