[megaloman]

Чтобы сразу не создавались пустые папки можно сделать так

Код:

@echo off
Set Where=E:\Delete

for /F "delims=" %%a in (E:\Delete\FileList.txt) do (
	If Exist "%Where%\*%%a*.*" (
		md "E:\Delete\%%a" 2>nul
	 	move /Y "%Where%\*%%a*.*" "E:\Delete\%%a\" >nul 2>nul
	)
)