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
Flasher
PostPosted: Sat Jul 02, 2011 14:25    Post subject: Reply with quote
Понятия не имею, в чём тогда проблема.
Для задачи перемещения файлов с названием, начало которого совпадает с названием папки, надо строку:
Code:
      If F.Name = .GetBaseName(P) And _
поменять на
Code:
      If F.Name = Left(.GetBaseName(P), Len(F.Name)) And _
но если не работает и первый вариант, то в этом нет особого смысла.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group