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: Wed Oct 05, 2011 19:58    Post subject: Reply with quote

Я становлюсь предсказуемым? Sad
Code:
@echo off &setlocal enableextensions &chcp 1251 >nul
rem Всё, кроме видео, переместить в подпапку
rem Важно! удалите пробелы в конце строк
rem Параметры: "%L"
rem Автор: Tol!k
for /f "usebackq delims=" %%l in ("%~1") do call :m "%%l" "%%l."
exit /b

:m
pushd %1 &md "%~nx2" ||(popd &goto :eof)
for /f "delims=" %%f in ('dir /b/a-d ^|findstr /ev ^
/rc:26[34] /rc:\.av[ci] /c:.flv /rc:\.m[24o]v /rc:\.mp[24]v* /rc:\.mpe*g /c:.ogm /c:.vob /rc:\.vp[67] /c:.xvid /c:.wmv'
) do move "%%f" "%~1%~nx2"
popd
goto :eof

расширения видео дополните самостоятельно


Last edited by Tol!k on Thu Oct 06, 2011 17:14; edited 2 times in total
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group