[megaloman]

Все песТни в кучу

Код:

@Echo Off

Set Otkuda=V:\hlam
Set Kuda=V:\Sound
Set Ext=mp3

Set LogFile="%Kuda%\+++%Ext%.Log"

Echo +++ >>%LogFile%
Echo +++++++++++++++++++++++++++++++++++++++ %Date%    %Time% >>%LogFile%
Echo +++ >>%LogFile%

FOR /R "%Otkuda%" %%i IN (*.%Ext%) DO Call :Moving "%%i" 
GoTo :Eof

:Moving
if Not Exist %1 GoTo :Eof
move /Y "%~dp1*.%ext%" "%Kuda%\" >>%LogFile%

С сохранением путей процедура :Moving вместо приведенной выше должна иметь вид

Код:

:Moving
if Not Exist %1 GoTo :Eof

md "%Kuda%%~p1"
move /Y "%~dp1*.%ext%" "%Kuda%%~p1" >>%LogFile%

Если в путях Otkuda Kuda присутствуют русские буквы - батник набирайте в 866 (Dos) кодировке.
Лог-файл создаётся в папке, куда копируете. Естественно, Вы можете переделать как Вам нравится