Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Переупорядочить папки по первым буквам их имён 
Author Message
Tol!k



PostPosted: Mon Nov 28, 2011 18:48    Post subject: Reply with quote

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
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group