Код:
@Echo Off
chcp 1251 >nul
Set "BoxIn=%~dp0"
rem Set "BoxIn=C:\temp"
Set "Prof=sh*"
Set "DS=C:\Documents and Settings"
Set "DSAimp=Application Data\AIMP"
rem Set "US=C:\Users"
rem Set "USdesk=Desktop"
Set "US=C:\Documents and Settings"
Set "USdesk=Рабочий стол"
Call :Profile "xcopy /E /H /Y" "%BoxIn%\AIMP\*.*" "%DS%\%Prof%" "%DSAimp%" 1
Call :Profile "xcopy /H /Y" "%BoxIn%\Музыка.lnk" "%US%\%Prof%" "%USdesk%"
GoTo :Eof
:Profile
FOR /F "usebackq delims=" %%d IN (`Dir /b /s /a:d %3 2^>nul`) DO (
If Not "%5"=="" If Not Exist "%%d\%~4" Md "%%d\%~4"
%~1 %2 "%%d\%~4\" >nul 2>nul
)
GoTo :Eof
