Batya
|
Posted: Wed Mar 23, 2005 13:20 Post subject: |
|
|
alex29
Чё-то я ступил в одном месте, можно проще:
Code: | 'Запуск отмеченных в TC файлов зарегистрированным приложением
'В параметрах команды необходимо прописать %L
Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1)
Do While Not TempFile.AtEndOfStream
CreateObject("WScript.Shell").run chr(34) & TempFile.ReadLine & chr(34)
Loop |
|
|