Процедура удаления каталога:

При этом удаляются все файлы в каталоге, но сам он не удаляется, возникает OLE-ошибка. То же происходит при наличии в каталоге подкаталогов: файлы из подкаталогов удаляются, но сам подкаталог - нет с той же ошибкой. Вопрос: как удалить каталог полностью, со всеми файлами и подкаталогами?  

А так:

Данкинг, у меня все нормально удаляется. Ошибка возникает только в случае, если папка используется (соответственно и не может удалиться). Ну и какбэ используемую папку гарантированно удалить сложно, у меня получилось только в Корзину методом, описанным здесь, да и то только когда она перестает использоваться.

P.S. Ну а использовать второй параметр метода deleteFolder ты наверное пробовал.

Сейчас попробовал - результат тот же.  Папка вроде и не используется, а пример по ссылке - 

Удаляет все файлы, оставляя каталоги.

Добавлено @ 14:12
Вообще да, видимо, где-то держится эта папка в программе, в общем, буду искать.


А если быть точным, то мне нужно удалить не саму папку, а всё, что есть в ней. Т.е. папка остаётся, но пустая.

Это сообщение отредактировал(а) Данкинг - 14.11.2010, 14:23

А Проводник удаляет папку?

Akella, разумеется, да и если просто удалить папку через fs.deletefolder (т.е. без того, что делает программа сначала - а она действительно лезет в этот каталог), то удаляется нормально. Поэтому, вероятно, намёк верный: в программе что-то папку держит, хотя я уже там закрыл всё, что можно (TDirectoryListBox и TFileListBox). Вечерком думаю попробовать сделать через 0пу: сначала удалить все файлы в данной папке, а затем уже ставшими пустыми подкаталоги через RemoveDir. Вдруг получится.  

Это сообщение отредактировал(а) Данкинг - 14.11.2010, 15:44

Имхо те же яйца только в профиль.
Попробуй менять активную директорию перед удалением каким-нибудь ChDir

Да, и правда...

Аналогичный результат.

В общем, извратился окончательно: нужные пути к каталогам сохраняются в .txt, и сделал отдельную консольную программку, которую надо будет запускать после работы основной и которая удалит каталоги согласно этому .txt.  

Это сообщение отредактировал(а) Данкинг - 15.11.2010, 00:22

Данкинг, в общем случае папка чем-то занята, т.е. какой-то процесс содержит хендл на эту папку (скорее всего твой собственный это и есть).
Посмотреть это можно с помощью утилиты Unlocker, разблокировать через нее же.

И еще: http://blog.delphi-jedi.net/2010/11/14/is-file-in-use/

Keeper89, ну, запускать утилиты - это по сути то же самое, что и моя вторая консольная программка.  

SetCurrentDir('C:\') (возможно, с последующей задержкой на 1с перед удалением) тоже не поможет?

ama_kid, аналогично, даже с задержкой на 10 секунд.  

Данкинг, я бы на твоем месте последовательно повырезал бы (закомментировал) участки кода и посмотрел, после чего удаление становится возможным. Хотя, если тебя устраивает вариант с доп.консольной приблудой - то ок.