' RunProgramParam.vbs
'========================   Описание   ========================================
' Запуск программ, скриптов, батников со СКОЛЬКО УГОДНО параметрами из файл списка ПО ОЧЕРЕДИ
'=======================  Дополнение ========================================
' Программа и параметры в файл списке обрамить в квадратные скобки [ ] [ ]
' Пример:
' [%COMMANDER_PATH%\Utilities\Scripting\AutoIt\AutoIt3.exe] [%COMMANDER_PATH%\Scripts\TextWork\CopyXlsInText.au3] [2] [1] [2] [0] [1] [%COMMANDER_PATH%\Files\Lists\CreateMenu\WcmMenuImage.xlsx] [%COMMANDER_PATH%\LANGUAGE\Wcmd_Rus.ini] [1]
' [%COMMANDER_PATH%\Files\Bat\CopyTcFilesFromTc.bat] [%COMMANDER_PATH%\Files\Bat\]
'========================  Параметры ========================================
' В параметрах вызова должно быть прописано: {путь к файл списку}
' Пример:  "%%COMMANDER_PATH%%\Files\Lists\CreateMenu\RunWcmMenu.txt"
'
' Автор:             Аверин Андрей
' Версия:          1.1 (2010)
' Mail:                 Averin-And@yandex.ru
' Site:                  http://tc-image.3dn.ru
'=========================================================================
Option Explicit
Dim WSH, ListFile, SelFile, Program, Param, FF, Data, i, Line, PData
Set WSH = CreateObject("WScript.Shell")

FF = GetPath(WScript.Arguments(0))
Set ListFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(FF, 1)

Do While Not ListFile.AtEndOfStream
   SelFile = ListFile.ReadLine
   SelFile = Mid(SelFile, 2, Len(SelFile) - 2)
   Data = Split(SelFile, "] [")

   For i = 0 To Ubound(Data)
     If Mid(Data(i), 1, 1) = "%" Then
       PData = GetPath(Data(i))
     Else
       PData = Data(i)
     End if
     If Right(Data(i), 1) = "\" Then PData = PData & "\"
     Line = Line & PData & Chr(34) & Chr(32) & Chr(34)
   Next

   WSH.Run Chr(34) & Line & Chr(34), 2, True
   Line = ""
Loop

ListFile.Close : Set ListFile = Nothing : Set WSH = Nothing : WScript.Quit
Function GetPath(pPath) : GetPath = WSH.ExpandEnvironmentStrings(pPath) : End Function