Имя пользователя:
Пароль:
 

Показать сообщение отдельно


Moderator


Сообщения: 53589
Благодарности: 15546

Профиль | Отправить PM | Цитировать


Цитата Pozia:
нужно кучу файлов из одной папки упаковать в CAB архив в другую папку.
Можно с помощью Makecab:
Код: Выделить весь код
@Echo Off
SetLocal EnableExtensions

Set SrcDir=Папка_с_файлами
Set DestCAB=Полное_имя_CAB-файла

Echo .OPTION EXPLICIT > "%Temp%\x1.DDF"
Echo .Set RptFileName="%Temp%\x1.RPT" >> "%Temp%\x1.DDF"
Echo .Set InfFileName=NUL >> "%Temp%\x1.DDF"
Echo .Set DestinationDir= >> "%Temp%\x1.DDF"
Echo .Set CabinetName1="%DestCAB%" >> "%Temp%\x1.DDF"
Echo .Set DiskDirectoryTemplate= >> "%Temp%\x1.DDF"
Echo .Set UniqueFiles=Off >> "%Temp%\x1.DDF"
Echo .Set FolderSizeThreshold=5000000 >> "%Temp%\x1.DDF"
Echo .Set MaxDiskSize=0 >> "%Temp%\x1.DDF"
Echo .Set Cabinet=On >> "%Temp%\x1.DDF"
Echo .Set Compress=On >> "%Temp%\x1.DDF"
Echo .Set CompressionType=LZX >> "%Temp%\x1.DDF"
Echo .Set CompressionMemory=21 >> "%Temp%\x1.DDF"
For /F "Delims=" %%K In ('Dir /A-D /B "%SrcDir%"') Do Echo "%SrcDir%\%%~K" >> "%Temp%\x1.DDF"
MAKECAB.EXE /F "%Temp%\x1.DDF"
или воспользоваться Cabarc.exe
Это сообщение посчитали полезным следующие участники:

Отправлено: 11:50, 22-10-2009 | #9