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