[Iska]

можно что нибудь придумать? »

Можно:

читать дальше »

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set sSourceFolder=C:\Песочница\034
set sDestFolder=d:\какаятопапка

if exist "%sSourceFolder%\." (
	pushd "%sSourceFolder%"
	
	if exist "%sDestFolder%\." (
		for /f "usebackq tokens=1* delims= " %%i in (`dir /b /a:-d /o:n "*@*.*"`) do (
			set sNewFolder=%sDestFolder%\%%~i
			if not exist "!sNewFolder!\." md "!sNewFolder!"
			if not exist "!sNewFolder!\отправленные\." md "!sNewFolder!\отправленные"
			>nul copy /y "%%~i %%~j" "!sNewFolder!\%%~j"
			del /f /q "%%~i %%~j"
		)
	) else (
		echo Can't find destination folder [%sDestFolder%].
	)
	
	popd
) else (
	echo Can't find source folder [%sSourceFolder%].
)

endlocal
exit /b 0