[amel27]

desk, так пойдет? (пустые не копируются)

Код:

Set $DIR=WinRaR
Set $DST=Z:

For /F "Delims=" %%i In ('DIR C:\ /S/B/A:D^|FindStr /IEC:"\%$DIR%"') Do XCopy /S/Q/H/R "%%i\*" "%$DST%%%~pnxi\"