[megaloman]

Код:

@Echo Off
cls

Set "sFolderName=\\COMP1\d$\Backup_1c\%date:~6,4%-%date:~3,2%.%date:~0,2%"
Set "work_dir=D:\Backup"

MD "%sFolderName%" 2>nul

for /d %%B in ("%work_dir%\*") Do Call :BakCopy "%%B\*.bak"
pause
GoTo :Eof

:BakCopy
	FOR /F "usebackq delims=" %%v in (`dir %1 /b /T:A /A:-D /O:-D 2^>nul`) Do (
		Echo copy "%~dp1%%v" "%sFolderName%\"
		>nul copy "%~dp1%%v" "%sFolderName%\" &GoTo :Eof
	)
GoTo :Eof

Что не так?

1. Например, exit вызывает не только выход из цикла, но и завершение батника. Из-за этого обрабатывается только первая выданная командой Dir папка. Читаем хелп по команде Exit /?
2. Не понимаю, зачем нужно "%sFolderName::=-%"