[gora]

Код:

@Echo Off
SetLocal EnableDelayedExpansion
:: Путь к обрабатываемой папке
Set Folder=e:\Temp\_1 1
:: Путь к создаваемой папке
Set OutFolder=e:\Temp\folderX

For /F "tokens=* delims=" %%A In ('Dir /S /B /A:-D "%folder%\AS*.txt"') Do (
	Set dpath=%%~dpA
	Set dpath=!dpath:~0,-1!
	Set dpath=%OutFolder%!dpath:%Folder%=!
	If Not Exist "!dpath!" MD "!dpath!"
	Copy "%%A" "!dpath!\%%~nxA">Nul
)
Pause
Exit