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
Nick



PostPosted: Wed Apr 22, 2015 12:57    Post subject: Reply with quote

Flasher
Flasher wrote:
Советую ещё раз перечитать здешнее послесловие.
Имеется в виду это сообщение ?
Если это по поводу создания новой темы, то ведь подобной задачи в принципе, вроде, не было.
Flasher wrote:
Bas поменять на Fil, я полагаю
Т.е. в строке 112 и 113:
Name = FSO.GetBaseName(FF) & "." & Ext
If FSO.FileExists(Path & FSO.GetBaseName(FF) & "." & Ext) Then

Заменить на:
Name = FSO.GetFileName(FF) & "." & Ext
If FSO.FileExists(Path & FSO.GetFileName(FF) & "." & Ext) Then

Больше ничего нигде менять не надо?
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group