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 

Найти папки с большим кол-ством файлов, находимых при поиске
Goto page Previous  1, 2, 3, 4
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Flasher



Joined: 06 Nov 2009
Posts: 12849
Location: Москва

Post (Separately) Posted: Wed Jul 13, 2016 22:12    Post subject: Reply with quote

Hjkma
Добавил Then. Это я вручную правил, пардон. Rolling Eyes
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Hjkma



Joined: 18 Apr 2015
Posts: 167

Post (Separately) Posted: Wed Jul 13, 2016 22:45    Post subject: Reply with quote

Flasher
Опять ошибка вызвалась
Quote:
Строка: 37 Символ: 25 Ошибка: Переменная не определена: 'ForFolder'
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12849
Location: Москва

Post (Separately) Posted: Wed Jul 13, 2016 22:55    Post subject: Reply with quote

Исправил.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Hjkma



Joined: 18 Apr 2015
Posts: 167

Post (Separately) Posted: Thu Jul 14, 2016 00:42    Post subject: Reply with quote

Flasher
Потестил и мне по моему ощущению не показалось, что новый скрипт демонстрирует большую прибавку к скорости. Также как и по-прежнему на обработку больших папок с кучей подпапок уходит много времени. Ну завтра буду полноценно с секундомером тестировать оба варианта скрипта, тогда станет ясно какой вариант будет скоростнее.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 12849
Location: Москва

Post (Separately) Posted: Thu Jul 14, 2016 01:05    Post subject: Reply with quote

Hjkma
Я же написал, что не думаю, что скажется существенно на больших объёмах. Альтернативный же вариант я только предложил, если возникнет (не у меня) желание.
Если нужно узнать затраченное время, то следом за 5-й строкой нужно дабавить
Code:
Dim T : T = Timer
, а за 27-й
Code:
MsgBox "Затраченное время: " & Timer - T & " секунд(ы)", 4160

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3, 4
Page 4 of 4

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group