[megaloman]

a.k.a. Rasputin, То есть у Вас архивируется папка с файлами в которой нет подпапок

Код:

@Echo Off &cls
	Set "BoxIn=A:"
	Set "BoxArc=Z:\backup\D"
	Set "Exclude=%~dpn0.exl"

	Set Arc="C:\Program Files\7-Zip\7z.exe" a -tzip -mx=5 -ppass

	If Not Exist "%BoxIn%\" (Echo !!! Folder "%BoxIn%" not found &Pause &Exit /B 2) 

	For /F "usebackq delims=" %%d In (`2^>nul Dir /B /A:D "%BoxIn%\" ^| FindStr /I /L /V /G:"%Exclude%"`) Do (
		Pushd "%BoxIn%\%%d"
			>nul %Arc% "%BoxArc%\%DATE%_%%~nxd.zip"
		Popd
	)
pause
Exit /B