ASloup,
Код:
@Echo off
Set bRoot="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
Set bName="Music Pictures Video Personal"& rem Имена папок согласно реестру
Set $DST=AnyDST& rem "AnyDST" - твоя целевая директория
For /f "tokens=1 delims=R" %%a in ('reg query %bRoot% /s ^| Findstr /i %bName%') ^
do if not "%%a"=="" call :moving "%%a"
pause&goto :eof
:moving
set $name=%~1
Set $bname=%$name: =%
Set $DSTname=%$bname:My =%
Reg add %bRoot% /v "%$bname%" /t REG_EXPAND_SZ /d "%$DST%\%$DSTname%" /f && Echo.
goto :eof
