LEX1
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
evgenych
Если урлов не слишком много, то можно так: List2String.vbs opera.exe list.txt
Код: ' File: List2String.vbs
' Description: Скрипт для загрузки выделенных в Total Commander файлов в заданную программу
' Version: 1.1
' Author: mozers™
' Comments: Программа должна поддерживать загрузку нескольких файлов с ком.строки.
' Т.е. обрабатывать команду вида:
' programm.exe file1.ext file2.ext file3.ext
' Sample: Создаем кнопку на панели инструментов:
' Команда: %COMMANDER_PATH%\WSH\List2String.vbs "%COMMANDER_PATH%\Utils\SCDWriter\SCDWriter.exe"
' Параметры: %L
' _________________________________________________________
Option Explicit
Dim WshShell, FSO, sProg, objArgs, FileList, sOneFile, sStringFiles
Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")
sProg = WshShell.ExpandEnvironmentStrings(objArgs(0))
If objArgs.Count < 2 Then
WshShell.Run """" & sProg & """", 1, False
Else
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FileList = FSO.OpenTextFile(objArgs(1), 1, False)
Do While Not FileList.AtEndOfStream
sOneFile = FileList.ReadLine
If Right(sOneFile, 1) = "\" Then sOneFile = Left(sOneFile, Len(sOneFile) - 1) 'Нужно для немногих программ (например для SCDWriter)
sStringFiles = sStringFiles & """" & sOneFile & """ "
Loop
WshShell.Run """" & sProg & """ " & sStringFiles, 1, False
End If
WScript.Quit
|
|
