' Sample: Создаем кнопку на панели инструментов:
' Команда: %COMMANDER_PATH%\Utils\WSH\MultiRun.vbs
' Параметры: %L
' _________________________________________________________
Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FileList = FSO.OpenTextFile(objArgs(0), 1, False)
Do While Not FileList.AtEndOfStream
sFile = FileList.ReadLine
If Right(sFile,1) = "\" Then
WshShell.Run """" & sEditor & """", 1, False
Exit Do
End If
WshShell.Run "rar d " & sFile & " @filesToDelete.lst", 1, False
Loop |
