Добавлено: Пн июн 20, 2011 22:04
http://fy.chalmers.se/~appro/linux/DVD+RW/tools/win32/
работает без cygwin1.dll
работает без cygwin1.dll
Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
Я не могу проверитьWin7
Сообщений никаких, в консоли, например.Tol!k писал(а):Ну, а сообщения какие пишет?
Код: Выделить всё
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Plugins\WCX\MultiArc\mkisofs.cmd
"%T%O.iso" "%L"
C:\Windows\System32\imageres.dll,-68
mkisofs
%COMMANDER_PATH%\Plugins\WCX\MultiArc\
-1
Значит у меня с системой что-то, не знаю. Кстати, в папку" MultiArc" зачем положил?Rodny писал(а):Работает на Win7 x86
Так я ж с него начинал эксперименты, там файл и остался.Flasher писал(а):Кстати, в папку" MultiArc" зачем положил?
Понятно.Rodny писал(а):Так я ж с него начинал эксперименты, там файл и остался.
Опередил. Батник-то я не трогал в этом смысле, а больше править и негде.Rodny писал(а):Нет, так у меня тоже работает.
Нашёл причину. По привычке путь запуска затёр."mkisofs.exe" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
Что это даёт?Добавляем к командной строке "Имя папки=D:/Путь/Имя папки/"
Иначе добавляется не папка, а её содержимоеRodny писал(а):Возможным решением может быть обработка файла-списка в скрипте, и если текущий элемент является каталогом, то добавлять в командную строку параметров типа "каталог 1=каталог 1".

Flasher писал(а):И что, прям в комстроке так и прописывать со знаком равенства? Я что-то ничего подобного не находил в мануале.
до "mkisofs может быть запущено на системах Win9X/NT4"Rodny писал(а):Смотри абзацы, начинающиеся с "pathspec является путем в дереве каталогов"
Код: Выделить всё
' Упаковать выделенные файлы и папки в ISO-образ
' vbs-файл положить в одну папку с mkisofs.exe
' Параметры: %L "<Путь_назначения>\"
' Пример: %L "%T"
'=============================================
Name = InputBox("Введите имя ISO-файла:", "Создание образа ISO из выделенного списка")
If Len(Name) = 0 Then WScript.Quit
On Error Resume Next
With CreateObject("Scripting.FileSystemObject")
For Each F In Split(.OpenTextFile(WScript.Arguments(0), 1).ReadAll, vbNewLine)
If .FolderExists(F) Then Str = Str & " """ & .GetFolder(F).Name & """=""" & F & """"
If .FileExists(F) And Len(.GetFileName(F))<=103 Then Str = Str & " """ & F & """"
If .FileExists(F) And Len(.GetFileName(F))>103 Then Str = Str & " """ & Left(.GetBaseName(F), Len(.GetBaseName(F))+103-Len(.GetFileName(F))) & "." & .GetExtensionName(F) & """=""" & F & """"
Next
End With
Str = Replace("""" & Wscript.Arguments(1) & Name & ".iso"" " & Str, "\", "/")
With CreateObject("WScript.Shell")
.Run "mkisofs.exe -quiet -r -f -joliet-long -nobak -graft-points -o " & Str, 0, True
.Popup "Образ создан!", 1, "Результат", 64
End With