Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.16;
Скачать: CL | DM;

Вниз

Удаление из каталога все, что можно удалить   Найти похожие ветки 

 
ShaPka   (2003-09-26 23:27) [0]

Прошу написать, как удалить из указанного каталога все файлы и подкаталоги без лишних запросов...


 
Ihor Osov'yak ©   (2003-09-26 23:40) [1]



uses
...
windows,
ShellAPI,
...
;

Function DeleteFolder (folderName: string): boolean;
(*returns true unless error or user abort*)
Var
r: TshFileOpStruct;
i: integer;
Begin
folderName := folderName+#0#0;
result := false;

i := GetFileAttributes(PChar(folderName));
if (i = -1) or (i and FILE_ATTRIBUTE_DIRECTORY = 0) then EXIT;

fillchar(r, sizeof(r), 0);
r.wFunc := FO_DELETE;
r.pFrom := pChar(folderName);
r.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;

result := (0 = ShFileOperation(r)) and (not r.fAnyOperationsAborted);
End;



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

Текущий архив: 2003.10.16;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.025 c
14-51449
_/--(o)--\_
2003-09-29 21:32
2003.10.16
фаст нета нет в 7-ой делфе?


14-51517
bfg1000ke
2003-09-29 09:25
2003.10.16
Графы


3-51141
фдыщае
2003-09-24 18:25
2003.10.16
Ошибки при работе с Microsoft Jet OLE DB 4


3-51079
Брат
2003-09-26 13:44
2003.10.16
Как в запросе INSERT передать NULL?


1-51183
Andrey V.
2003-10-06 14:42
2003.10.16
Два проекта в одной папке