Омега
offline
Опыт:
12,033Активность: |
[Delphi] Очистка каталога
Нужна процедура\функция, для полного очищения каталога, даже если в нем лежат так же еще папки, в которых тоже файлы, а возможно и еще папки...
Делфи до такой степени не шарю, что бы самому написать. Понять и переправить-то смогу. В интернетах нашел с пол-дюжины сорсов, которые: а) не работают б) не удаляют вообще ничего, даже просто файлы с корня указанной директории, если в ней есть хоть 1 папка (если папок нет - то удаляет оставшиеся файлы) Самый удачный вариант нашел:
Он работает по схеме "б". Нужно: поправить, что бы удалял вообще все, по указанному пути. |
23.02.2010, 09:32 | #1
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|
HGL
Phased out.
offline
Опыт:
25,976Активность: |
набросал по-быстрому... как бы чисто теоретически работать должно, но с файловыми системами у меня вообще туго + там иногда бывают сбои... но попробуй, вдруг внезапно заработает :D
Код:
|
24.02.2010, 21:46 | #2
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|
Омега
offline
Опыт:
12,033Активность: |
rmdir(dir) убрал, ибо крашится из-за нее, да и не обязательно удалять саму папку. Работает получше хваленого текста из псота #1. tldr, спасибо, да. |
24.02.2010, 23:11 | #3
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|