| View previous topic :: View next topic |
| Author |
Message |
BezDNaU
Joined: 31 May 2008
Posts: 65
|
 (Separately) Posted: Fri Jun 24, 2011 10:51 Post subject: |
 |
|
Можно с помощью ImgBurn.
Вот кнопка
| Code: | TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\Utils\ImgBurn\ImgBurn.exe"
/MODE BUILD /FILESYSTEM "ISO9660 + Joliet" /BUILDMODE IMAGEFILE /VOLUMELABEL "ObRaZ" /VERIFY /NOSAVESETTINGS /SRCLIST "%L" /DEST "%Tdisk.iso" /START /CLOSESUCCESS
%COMMANDER_PATH%\Utils\ImgBurn\ImgBurn.exe,1
Записать выделенное
%COMMANDER_PATH%\Utils\ImgBurn\
-1 |
|
|
| Back to top |
|
 |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Fri Jun 24, 2011 11:36 Post subject: |
|
|
Пусть, конечно, ещё один вариант будет, но в 10 раз превышающий установочный дистрибутив против маленькой портабельной консольной однофайловой тулзы, в которой и скорость записи куда побыстрее и нет лишних громоздких окон, окна подтверждения и можно вводить имя нового образа (скрипт), а не лезть в параметры кнопки, как-то не катит.
Тут, кстати, ещё пару ключей не помешало бы: /PORTABLE /LANGID 2057
Но есть один у неё небольшой плюс - можно записывать в UDF. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Fri Jun 24, 2011 16:38 Post subject: |
|
|
Кстати, был ещё пример для UltraISO.
Сделал некоторые правки в скрипте по совету Batya. Также сделал грамотную обрезку длинных имён файлов. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Wed Jul 20, 2011 02:21 Post subject: |
|
|
| Увеличил до 103 символов, в подавляющем большинстве случаев должно хватать. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Aug 11, 2013 21:04 Post subject: |
|
|
Предлагаемый вариант: | Code: | '================================================================================================
' Создать для каждого выбранного каталога свой ISO-образ (файловая система: UDF)
' Параметры: %WL "<путь получателя>" <мин. остаток свободного места на диске в Мб после упаковки>
' Пример: %WL "%T" 250
'===================================== Путь к утилите OSCDIMG ===================================
Util = """%COMMANDER_PATH%\Utils\ISO\oscdimg.exe"""
'================================================================================================
With WScript.Arguments
If .Count = 0 Then WScript.Quit
List = .Item(0) : Path = .Item(1) : Min = .Item(2)
End With
If Right(Path, 1) <> "\" Then Path = Path & "\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim WSH : Set WSH = CreateObject("WScript.Shell")
Drive = FSO.GetDriveName(Path) : Free = FSO.GetDrive(Drive).AvailableSpace
L = vbNewLine : Set Dict = CreateObject("Scripting.Dictionary")
For Each F in Split(FSO.GetFile(List).OpenAsTextStream(1, -1).ReadAll, L)
If F <> "" Then
If FSO.FolderExists(F) Then Size = Size + FSO.GetFolder(F).Size : Dict.Add F, "" : End If
End If
Next : Res = Abs((Size - Free)/1024) : Title = "Создание ISO-образов"
If Size > Free Then
If Res > 1023 Then Res = Fix(Res/1024) & " Мб" Else Res = Fix(Res) & " Кб"
WSH.Popup "Требуется дополнительно " & Res & " свободного места на диске " &_
Drive & " !", 4, Space(30) & "Остановка (""" & Title & """)", 48 : Quit
ElseIf Res/1024 < Min Then
Mess = MsgBox("После создания образов на диске останется" & L & "чуть менее " &_
Int(Res/1024) & " Мб !" & L & L & "Всё равно продолжить?", 4132, Space(24) & Title)
If Mess <> 6 Then Quit
End If
For Each F in Dict.Keys
WSH.Run Util & " -h -u2efv -x -o -k -m """ & Left(F, Len(F) - 1) &_
""" """ & Path & FSO.GetBaseName(F) & ".iso""", 0, True
Next : WSH.Popup "Образы созданы!", 4, " " & Title, 64 : Quit
Sub Quit : Set FSO = Nothing : Set WSH = Nothing : Set Dict = Nothing : WScript.Quit : End Sub |
OSDIMG
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
addhaloka
Joined: 09 Nov 2010
Posts: 169
|
| (Separately) Posted: Sun Jul 16, 2017 23:49 Post subject: |
|
|
| Flasher wrote: | | Сделал некоторые правки в скрипте по совету Batya. Также сделал грамотную обрезку длинных имён файлов. |
Что-то то работает, то нет. Hidden text Кнопка такая: | Code: | TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\Bin\UltraISO\createiso_mkisofs.vbs"
%L "%T"
%COMMANDER_PATH%\Icons\TCMICONS.DLL,88
Упаковать выделенные файлы и папки в ISO-образ (mkisofs)
-1
|
Вроде бы вообще работает, если только паковать файлы из расположения скрипта, из других мест не хочет. Попробовал сделать так, в createiso_mkisofs.vbs: | Code: | ...
MKISO = """%COMMANDER_PATH%\Bin\UltraISO\mkisofs.exe"""
...
With CreateObject("WScript.Shell")
.Run MKISO & " -quiet -r -f -joliet-long -nobak -graft-points -o " & Str, 0, True
.Popup "Образ создан!", 1, "Результат", 64
End With |
Так пакует и из других мест, но только файлы (оригинальный тоже папки не может). Возможно, дело в версии (или кривой сборке) mkisofs? 
Брал отсюда: https://sourceforge.net/projects/tumagcc/files/ (сборки без использования cygwin) |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Jul 16, 2017 23:58 Post subject: |
|
|
addhaloka
См. на TCKB ссылку.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
addhaloka
Joined: 09 Nov 2010
Posts: 169
|
| (Separately) Posted: Mon Jul 17, 2017 00:31 Post subject: |
|
|
Flasher
Спасибо, с mkisofs оттуда нормально работает и скрипт там поновей. 
p.s. Те mkisofs 3.x, что у меня были, похоже совсем кривые - помимо неработы с папками, там ещё и с кириллицей проблемы. |
|
| Back to top |
|
|
bbcby
Joined: 05 Mar 2006
Posts: 58
|
| (Separately) Posted: Thu May 17, 2018 16:53 Post subject: |
|
|
Добрый день. Создание ISO DVD-Video через oscdimg.
Тут был скрипт vbs, конечно, но мне хотелось бы видеть окно консоли с процессом выполнения.
Надо выделенные папки, каждая в свою ISO в противоположную панель. Volume label должна браться из имени папки, названия папок могут быть с пробелами.
Пытаюсь сделать кнопку, но что не получается. Создается файл с именем .iso и метка тома прописывается неверно.
| Code: | TOTALCMD#BAR#DATA
%ComSpec% /k echo off & for /f "delims=" %i in
('type %WF') do oscdimg -l%%~n -uv -u1 %%i %T%%~ni.iso
shell32.dll,151
DVD Video
-1
|
Нужен формат ISO именно DVD-Video, параметров -uv -u1 вроде достаточно? |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu May 17, 2018 16:56 Post subject: |
|
|
| bbcby wrote: | | Тут был скрипт vbs, конечно, но мне хотелось бы видеть окно консоли с процессом выполнения. |
Он не был, он есть. Выше перед глазами. 3 строка снизу — 0 заменить на 1.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
bbcby
Joined: 05 Mar 2006
Posts: 58
|
| (Separately) Posted: Thu May 17, 2018 17:27 Post subject: |
|
|
Оказалось все просто, спасибо.
А можно вариант без проверки свободного места.
И метка тома там DVD-ROM прописывается, а не берется из имени папки. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu May 17, 2018 18:05 Post subject: |
|
|
А смысл варианта без проверки? Это же весьма полезная опция. И можно хоть 0 написать, если угодно.
По метке 4 строка снизу:
| Quote: | | WSH.Run Util & " -h -u2efv -x -o -k -l""" & FSO.GetFileName(F) & """ -m """ & Left(F, Len(F) - 1) &_ |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
bbcby
Joined: 05 Mar 2006
Posts: 58
|
| (Separately) Posted: Thu May 17, 2018 18:57 Post subject: |
|
|
| Спасибо. |
|
| Back to top |
|
|
LonerD
Joined: 04 Jan 2011
Posts: 1172
Location: Макеевка
|
| (Separately) Posted: Wed Dec 05, 2018 17:36 Post subject: |
|
|
Цель - упаковать выделенные файлы и каталоги (в том числе с именами в Unicode) в единый ISO-файл.
С этим может справиться какая-нибудь маленькая консольная бесплатная утилитка или минимальный вариант - ImgBurn?
Что-то ничего более действенного не находится... даже такая бы казалось "эталонная" утилита для работы с ISO-файлами как UltraISO - и та не переваривает Unicode.
_________________
Windows 11 | TC DreamLair eternal pre-α |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Wed Dec 05, 2018 23:53 Post subject: |
|
|
LonerD
Вообще mkisofs с параметрами -r -joliet должна работать с Unicode. Почему это не происходит с версией с TCKB, ответить затрудняюсь. Попробуй другие версии.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
