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: Sun May 06, 2012 00:49    Post subject: Reply with quote

Code:
@echo off &chcp 1251 >nul
setlocal enableextensions enabledelayedexpansion
::   http://forum.wincmd.ru/viewpost.php?p=92136
::   Пример параметров: "%L" "%T"

for /f "usebackq delims=" %%f in ("%~1") do (
   set "Name=%%~nf" &title "%%~nxf"
   for /l %%n in (3,1,123) do if exist "%%f" (
      set "Same=!Name:~0,%%n!" &set /a dirs=0
      for /f "delims=[]" %%d in ('dir /b/ad "%~2\!Same!*" 2^>nul ^|find /n /v ""') do set /a dirs=%%d
      if "!dirs!"=="1" for /f "delims=" %%a in ('dir /b/ad "%~2\!Same!*"') do move /y "%%f" "%~2\%%a\"
   )
)
goto :eof

проблемы с !
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group