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
Batya



PostPosted: Fri Oct 19, 2012 10:14    Post subject: Reply with quote

dam-69
Используй вот этот скрипт.
Поменяй в нём часть кода "Изменяемые параметры":
Code:
'========== Изменяемые параметры =====================================
'Массив соответствия, задаваемый регулярными выражениями
EF.Add "^([0]{1,})0\.mp3$", "$10"
EF.Add "^(\d{1,})\d\.mp3$", "$10"
'=====================================================================

И ещё надо добавить создание папки, если не существует.
После строки
Code:
      Fold = Target & Fold & "\"

добавь
Code:
      If Not FSO.FolderExists(Fold) Then FSO.CreateFolder(Fold)

Скрипт будет работать для любого количества цифр больше 1 в имени файла (например, для 4-значных - "0000.mp3" ... "9999.mp3").
_________________
Нет, я не сплю. Я просто медленно моргаю.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group