mozers
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LEX1
Абсолютно верно! Дело именно в слеше в конце имени каталога. Я это не заметил  Лови исправленный вариант:
Код: ' List2String.vbs
' Скрипт для загрузки выделенных файлов/каталогов в Small CD-Writer
' Создаем кнопку на панели инструментов
' Команда: %COMMANDER_PATH%\WSH\List2String.vbs "%COMMANDER_PATH%\Tools\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 |
Это исправление, кстати, нужно только для Small CD-Writer. Слеш в конце - очень правильная запись каталога. Другие проги это понимают. А как SCDWriter будет отличать файл и одноименный с ним каталог я не представляю... |
. Кстати, правильнее не "Файл значка: C:\Program Files\Total Commander\Tools\SCDWriter.exe" а "%COMMANDER_PATH%\Tools\SCDWriter.exe"