option explicit

' строка запуска для My_Proga_1.exe
const sProga1Run="""C:\My_Folder\My_Proga_1.exe"" /h /s"

' строка запуска для My_Proga_2.exe
const sProga2Run="My_Proga_2.exe"

' максимальный размер архива
const iMaxArkhSize=  524288 

dim idelay, boolExists
dim objFSO, objWSHShell, objFolder, objFile
dim sWorkingDir, sArkhPath, sRarRun

' величина паузы в цикле
idelay=  2000 

' папка из которой запущен скрипт
sWorkingDir= replace(wscript.ScriptFullName, "\" & wsctipt.ScriptName, "")

' полный путь к архиву
sArkhPath= sWorkingDir & "\MP3_Files.rar"

' строка запуска для rar.exe
sRarRun="rar.exe m[f] -ep -inul -hp12345 -m5 -y """ & sArkhPath &  """ *.mp3"

' объект: Scripting.FileSysytemObject
set objFSO= CreateObject("Scripting.FileSysytemObject")

' объект: WScript.Shell
set objWSHShell= CreateObject("WScript.Shell")

' объект: папка из которой запуцщен скрипт
set objFolder = setFSO.GetFolder(sWorkingDir)

' запуск My_Proga_1.exe без ожидания завершения и пауза в 5 минут
objWSHShell.Run sProga1Run, 1 ,false
wscript.sleep  300000 

do 
'  ?есть *.mp3
'   да: запаковать   
   ' флаг наличия .mp3 фалов
   boolExists= false
   
   ' для каждого файла в папке objFolder: если имя файла оканчивается на ".mp3"
   ' установить флаг boolExists, выйти из цикла for each
   for each objFile in objFolder
     if right(objFile.Name, 4 )=".mp3" then 
	   boolExists=true
	   exit for 
     end if 	 
   next
   
   ' если установлен флаг boolExists запустить rar.exe, дождаться окончания его работы
   if boolExists then objWSHShell.Run sRarRun, 1 ,true
   
'   ?есть MP3_Files.rar
'   да: ?размер MP3_Files.rar > 524288
'       да: запустить /wait My_Proga_2.exe
' REM наличие архива можно также проверить косвенно - по флагу boolExists
    if objFSO.FileExists(sArkhPath) then
        set objFile= objFSO.GetFile(sArkhPath)
        if objFile.Size > iMaxArkhSize then objWSHShell.Run sProga2Run, 1 ,true
    end if
   
'   пауза 
   wscript.sleep idelay

' завершить цикл при наличии в папке из которой запущен скрипт
' файла с именем STOPLOOPING.FLAG ( фича )
   boolExists= objFSO.FileExists(sWorkingDir & "\STOPLOOPING.FLAG")
loop until boolExists

wscript.quit