[решено] Архивация файлов - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Архивация файлов (http://forum.oszone.net/showthread.php?t=243433)

Архивация файлов

Доброго времени суток!
Подскажите пожалуйста как при помощи CMD/BAT реализовать следующее:
В папке лежат файлы попарно с одинаковыми именами но с разными расширениями,
к примеру:
fname1.doc
fname1.xls
добавлялись в архив zip с тем же именем (fname1.zip)
т. е. к примеру содержимое папки было такое:
fname1.doc
fname1.xls
fname2.doc
fname2.xls
fname3.doc
fname3.xls
fname4.doc
fname4.xls
скрипт.bat
а после запуска скрипта, находящегося в этой же папке становилось такое:
fname1.zip
fname2.zip
fname3.zip
fname4.zip
скрипт.bat
Заранее благодарен!

Код:

@Echo Off

For /R %%I In (*.doc) Do "c:\Program Files\7-Zip\7z.exe" a "%%~nI.zip" "%%~nxI" "%%~nI.xls">Nul && Del /Q "%%~nxI" "%%~nI.xls"

Pause

Для версии архиватора 9.29 можно упростить:

Код:

@Echo Off

For /R %%I In (*.doc) Do "c:\Program Files\7-Zip\7z.exe" a "%%~nI.zip" "%%~nxI" "%%~nI.xls" -sdel>Nul

Pause

gora, Спасибо огромное!!!