Страница 4 из 4

Добавлено: Ср июл 13, 2016 21:12
Flasher
Hjkma
Добавил Then. Это я вручную правил, пардон. :roll:

Добавлено: Ср июл 13, 2016 21:45
Hjkma
Flasher
Опять ошибка вызвалась
Строка: 37 Символ: 25 Ошибка: Переменная не определена: 'ForFolder'

Добавлено: Ср июл 13, 2016 21:55
Flasher
Исправил.

Добавлено: Ср июл 13, 2016 23:42
Hjkma
Flasher
Потестил и мне по моему ощущению не показалось, что новый скрипт демонстрирует большую прибавку к скорости. Также как и по-прежнему на обработку больших папок с кучей подпапок уходит много времени. Ну завтра буду полноценно с секундомером тестировать оба варианта скрипта, тогда станет ясно какой вариант будет скоростнее.

Добавлено: Чт июл 14, 2016 00:05
Flasher
Hjkma
Я же написал, что не думаю, что скажется существенно на больших объёмах. Альтернативный же вариант я только предложил, если возникнет (не у меня) желание.
Если нужно узнать затраченное время, то следом за 5-й строкой нужно дабавить

Код: Выделить всё

Dim T : T = Timer
, а за 27-й

Код: Выделить всё

MsgBox "Затраченное время: " & Timer - T & " секунд(ы)", 4160