Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Удаление каталога..

Автор: Goph 16.6.2002, 13:16

Здравствуйте!
Можно ли с помощью этого кода удалить все с диска D:

Function MyRemoveDir(sDir : String) : Boolean;
var
iIndex : Integer;
SearchRec : TSearchRec;
sFileName : String;
begin
Result := False;
sDir := sDir + 'D:\*.*';
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;

Автор: Baa 16.6.2002, 16:00

Попробуй - узнаешь!!!

Автор: Goph 16.6.2002, 18:32

Цитата(Baa @ 16.6.2002, 16:00)

Попробуй - узнаешь!!!

Я так и знал :angry:

Автор: Baa 16.6.2002, 18:58

А какого ответа ты еще ожидал?

Автор: Song 16.6.2002, 20:01

ShFileOperation() - всё решение в пяти строках.

Автор: Goph 16.6.2002, 22:08

Цитата(Song @ 16.6.2002, 20:01)

ShFileOperation() - всё решение в пяти строках.

Что ты имеешь в виду в пяти строчках?
Черкни плиз!

Автор: Baa 17.6.2002, 00:53

Цитата(HAspiring @ 17.6.2002, 02:08)

Цитата(Song @ 16.6.2002, )

ShFileOperation() - всё решение в пяти строках.

Что ты имеешь в виду в пяти строчках?
Черкни плиз!

rtfm
Посмори уже фак по дельфи, там все написано!