Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Аватара для gora

Ушёл из жизни


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

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


Цитата Sirimika:
если папка scan пустая, то ничего не делать »
Код: Выделить весь код
@Echo Off
SETLOCAL enabledelayedexpansion
Set SrcDir1=e:\something\SPB\scan
Set Arhive1=e:\something\SPB\arhive
Set SrcDir2=e:\something\MSK\scan
Set Arhive2=e:\something\MSK\arhive
Set FS=%CD%
For /L %%i In (1,1,2) Do (
	RD "!SrcDir%%i!" 2>Nul
	If Exist "!SrcDir%%i!" (
		7z a "!Arhive%%i!\%Date:~6,4%%Date:~3,2%%Date:~0,2%.zip" "!SrcDir%%i!\*">Nul
		cd /d "!SrcDir%%i!"
		RD /S /Q "!SrcDir%%i!" 2>Nul
		cd /d "%FS%"
	) Else MD "!SrcDir%%i!" 2>Nul
)
Pause
Это сообщение посчитали полезным следующие участники:

Отправлено: 18:07, 31-01-2011 | #18