Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата DaffiSmik:
Я хз... почему но с 'первого прохода все папки не удаляются, поэтому процедура загнана в цикл »
Попробуйте поменять:
Код: Выделить весь код
For Each objOlFolders In ContOlFolder.Folders
на нечто наподобие:
Код: Выделить весь код
For i = ContOlFolder.Folders.Count - 1 To 0 Step -1

Отправлено: 10:09, 22-01-2014 | #2