Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Ветеран


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

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


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

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