Tol!k

|
Posted: Mon Nov 28, 2011 18:48 Post subject: |
|
|
Code: | @echo off &setlocal enableextensions &chcp 1251 >nul
rem Переместить выделенное в папки по первым буквам их имён
rem Параметры: "%F" "%T"
set "trg=%~2"
for /f "usebackq delims=" %%f in ("%~1") do call :move "%%f"
goto :eof
:move
set "l=%~1"
set "l=%l:~0,1%"
if not exist "%trg%%l%" md "%trg%%l%"
move %1 "%trg%%l%\%~1" >nul ||move "%~1." "%trg%%l%\%~1."
goto :eof
|
|
|