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

Как удалить директорию с фалами?   Найти похожие ветки 

← →
Turonix   (2003-10-31 13:41) [0]

Привет всем. Не подскажите как удалить директорию с вложенными каталогами и файлами?

---

← →
Sandman25 ©   (2003-10-31 13:42) [1]

Удалить вложенные каталоги и файлы, потом удалить саму директорию.

---

← →
VAleksey ©   (2003-10-31 13:46) [2]

см функцию
shFileOperation

---

← →
WithOut Any ... ©   (2003-10-31 13:49) [3]

deltree.exe с соответствуюшими ключами?

---

← →
Amoeba   (2003-10-31 15:51) [4]

Читай http://www.delphikingdom.com/mastering/fileshellapi.htm
Там все написано.

---

← →
WithOut Any ... ©   (2003-10-31 16:36) [5]

Можно попробовать так:
Function MyRemoveDir(sDir : String) : Boolean;
var
iIndex : Integer;
SearchRec : TSearchRec;
sFileName : String;
begin
Result := False;
sDir := sDir + "\*.*";
iIndex := FindFirst(sDir, faAnyFile, SearchRec);

while iIndex = 0 do begin
sFileName := ExtractFileDir(sDir)+"\"+SearchRec.Name;

if SearchRec.Attr = faDirectory then begin
if (SearchRec.Name <> "" ) and
(SearchRec.Name <> ".") and
(SearchRec.Name <> "..") then
MyRemoveDir(sFileName);
end else begin
if SearchRec.Attr <> faArchive then
FileSetAttr(sFileName, faArchive);
if NOT DeleteFile(sFileName) then
ShowMessage("Could NOT delete " + sFileName);
end;
iIndex := FindNext(SearchRec);
end;

FindClose(SearchRec);

RemoveDir(ExtractFileDir(sDir));
Result := True;
end;

Example:

if NOT MyRemoveDir("D:\myDir") then
ShowMessage("Can NOT delete dir");

Note:
(1) Any system/hidden/read-only files will be deleted.

---

← →
Amoeba   (2003-10-31 16:50) [6]

Ну зачем же изобретать плохой велосипед и городить огород? Все легко делается ф-ей shFileOperation. Еще раз повторяю: читай статью http://www.delphikingdom.com/mastering/fileshellapi.htm

WithOut Any ... © (31.10.03 16:36) [5]
Не пачкай человеку мозги!

---

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

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



Память: 0.46 MB
Время: 0.028 c