Вниз
Скачать: CL | DM;

Удаление файлов   Найти похожие ветки 

← →
KyRo ©   (2004-04-03 00:27) [0]

У меня такой вопрос можно ли удалить папку с файлами без запросов и даже есле в ней будут вложеные папки ??


← →
хз ©   (2004-04-03 02:05) [1]

Можно.


← →
KyRo ©   (2004-04-03 02:36) [2]

Спасибо что сказал , а как это сделать ??


← →
kaif ©   (2004-04-03 03:08) [3]

Пишем процедуру DelAll666(const Dir: string)
 В ней нужно с помощью функций FindFirst/FindNext/FindClose обойти все файлы директории Dir и для тех из них, которые представляют собой поддиректории вызвать саму функцию DelAll666 рекурсивно, передавая в нее имя каждой найденной директории, после чего удалять эту директорию. А для каждого найденного файла (который директорией не является) просто вызывать функцию удаления файла.
 ВАЖНАЯ ФИШКА!!!!!!!
 В этом цикле обязательно нужно исключить обработку файлов с именами "." и ".."! Иначе процедура пойдет не только "внутрь" папок, но и "наружу" и сотрет весь винчестер. Я однажды такое сделал при небрежном написании и пробном запуске именно такой процедуры! Было очень больно. Поэтому рекомендую сначала отладить рекурсивный обход с отладочным выводом и убедиться, что папки обходятся правильно. И только затем вставить в текст команды удаления файлов и директорий.


← →
хз ©   (2004-04-03 03:58) [4]

kaif ©   (03.04.04 03:08) [3]

В этом цикле обязательно нужно исключить обработку файлов с именами "." и ".."! Иначе процедура пойдет не только "внутрь" папок, но и "наружу" и сотрет весь винчестер. Я однажды такое сделал при небрежном написании и пробном запуске именно такой процедуры!

:o)


← →
Anatoly Podgoretsky ©   (2004-04-03 12:31) [5]

KyRo ©   (03.04.04 02:36) [2]
А чего тогда тянешь кота за хвост, сразу бы задал вопрос, а то так осторожно.
Ищи ответ в ShFileOperation, это та функция, которую нужно использовать практически для всех стандартных операций над файлами.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c
1-1081024220
SergP
2004-04-04 00:30
2004.04.18
есть ли аналог pos() без учета регистра?


3-1080117156
Шурик Ш
2004-03-24 11:32
2004.04.18
Не получается создать числовое поле заданной точности!


14-1079789142
Knight
2004-03-20 16:25
2004.04.18
Люди дайте ссылки на все фотки с последней ММР...


6-1076771254
MAC
2004-02-14 18:07
2004.04.18
Анализатор протокола


14-1080111426
Balkon
2004-03-24 09:57
2004.04.18
Какой пакет покупать Professional или Interprise?




   Наверх