Упаковка выделенного в ISO-образ
Select messages from
# through # FAQ
[/[Print]\]
Goto page Previous  1, 2, 3  Next  :| |:
Total Commander -> Автоматизация Total Commander

#16:  Author: Tol!kLocation: Арзамас PostPosted: Mon Jun 20, 2011 22:04
    —
http://fy.chalmers.se/~appro/linux/DVD+RW/tools/win32/
работает без cygwin1.dll

#17:  Author: FlasherLocation: Москва PostPosted: Mon Jun 20, 2011 22:15
    —
Tol!k
Взял один exe-шник, кинул с батником в одну папку, прописал параметры, выделил, нажал - по нулям. Sad
Win7 x86.

#18:  Author: Tol!kLocation: Арзамас PostPosted: Mon Jun 20, 2011 22:26
    —
Ну, а сообщения какие пишет?
Quote:
Win7
Я не могу проверить

#19:  Author: FlasherLocation: Москва PostPosted: Mon Jun 20, 2011 22:46
    —
Tol!k wrote:
Ну, а сообщения какие пишет?
Сообщений никаких, в консоли, например.

#20:  Author: RodnyLocation: Могилёв, Беларусь PostPosted: Mon Jun 20, 2011 22:46
    —
Code:
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

Работает на Win7 x86

#21:  Author: FlasherLocation: Москва PostPosted: Mon Jun 20, 2011 22:48
    —
Rodny wrote:
Работает на Win7 x86
Значит у меня с системой что-то, не знаю. Кстати, в папку" MultiArc" зачем положил?

#22:  Author: RodnyLocation: Могилёв, Беларусь PostPosted: Mon Jun 20, 2011 22:52
    —
Flasher wrote:
Кстати, в папку" MultiArc" зачем положил?
Так я ж с него начинал эксперименты, там файл и остался.
У тебя после -o пробела нету, может здесь причина?.. Нет, так у меня тоже работает.

#23:  Author: FlasherLocation: Москва PostPosted: Mon Jun 20, 2011 22:58
    —
Rodny wrote:
Так я ж с него начинал эксперименты, там файл и остался.
Понятно.
Rodny wrote:
Нет, так у меня тоже работает.
Опередил. Батник-то я не трогал в этом смысле, а больше править и негде.
Там строка set "str=mkisofs.exe -r -J -graft-points -o"%~1"". Пробел, естественно, никуда не делся.

Добавлено спустя 29 минут:

А, второе-то окно выдало:
Quote:
"mkisofs.exe" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.


Нашёл причину. По привычке путь запуска затёр. Very Happy

Tol'k, спасибо. Жаль, конечно, что там, где попадаются скобки, то не пакует. Было бы неплохо поправить, ведь это не проблема программы.
А можешь расписать алгоритм? Попробую в скрипте воплотить.

#24:  Author: Tol!kLocation: Арзамас PostPosted: Tue Jun 21, 2011 19:18
    —
Прокомментировал

#25:  Author: FlasherLocation: Москва PostPosted: Tue Jun 21, 2011 19:47
    —
Tol!k
Можно разжевать?:
Quote:
Добавляем к командной строке "Имя папки=D:/Путь/Имя папки/"
Что это даёт?

#26:  Author: Tol!kLocation: Арзамас PostPosted: Tue Jun 21, 2011 20:03
    —
Дык
Rodny wrote:
Возможным решением может быть обработка файла-списка в скрипте, и если текущий элемент является каталогом, то добавлять в командную строку параметров типа "каталог 1=каталог 1".

Иначе добавляется не папка, а её содержимое

#27:  Author: FlasherLocation: Москва PostPosted: Tue Jun 21, 2011 20:07
    —
И что, прям в комстроке так и прописывать со знаком равенства? Я что-то ничего подобного не находил в мануале.

#28:  Author: Tol!kLocation: Арзамас PostPosted: Tue Jun 21, 2011 20:19
    —
Ну да

Кстати, в батнике ошибка. Должно быть set "str=%str% "%~nx2=%i%""

#29:  Author: RodnyLocation: Могилёв, Беларусь PostPosted: Tue Jun 21, 2011 20:45
    —
Flasher wrote:
И что, прям в комстроке так и прописывать со знаком равенства? Я что-то ничего подобного не находил в мануале.

Rodny wrote:
Смотри абзацы, начинающиеся с "pathspec является путем в дереве каталогов"

до "mkisofs может быть запущено на системах Win9X/NT4" Wink

#30:  Author: FlasherLocation: Москва PostPosted: Thu Jun 23, 2011 00:38
    —
Сделал вчера (т.е. уже позавчера), а выложить забыл... Smile
Code:
' Упаковать выделенные файлы и папки в 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

Нет проблем с символами и точками в названиях.

Нужно также иметь в виду, что у формата записи Joliet допустимая длина в именах составляет 64 символа, поэтому файлы, которые этому не удовлетворяют по логике должны сохраняться с обрезанным именем, включая расширение. Я этот момент поправил, теперь обрезается только имя без расширения.

Tol!k, спасибо, что расписал, а то пришлось бы время лишнее тратить на расшифровку.
Rodny, потом сам увидел, спасибо за повторный тык.


Last edited by Flasher on Wed Jul 20, 2011 02:20; edited 3 times in total



Total Commander -> Автоматизация Total Commander


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous  1, 2, 3  Next  :| |:
Page 2 of 3

Powered by phpBB © 2001, 2005 phpBB Group