VPF::Удалить все файлы из папки - Форум программистов

Borland_Delphi_6

Дата 16.1.2005, 19:31 (ссылка)

(нет голосов)

Загрузка ...

LoneLINEss

Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

Репутация: нет
Всего: 20

Жаль, но мне так и не удалось найти работающую функцию удаления всех файлов из папки (хотя задача вроде бы не редкость). Вариант с FileListBox не предлогать smile

Знаю, что это делается с помощью FindFirst и т.д., но хотелось бы увидеть [code=delphi][/code] smile

--------------------

Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии

NiJazz

Дата 16.1.2005, 21:57 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

Вот чуть модифицированный мною код из DRKB:

Код


Procedure DelDir(Dir:string);
var SearchRec:TSearchRec;
begin
 if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
 if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
 repeat
   if (SearchRec.name='.') or (SearchRec.name='..') then continue;
   if (SearchRec.Attr and faDirectory)<>0 then begin
    DelDir(Dir+SearchRec.name);
    RemoveDir(Dir+SearchRec.name);
   end
   else begin
    DeleteFile(Dir+SearchRec.name);
   end;
 until FindNext(SearchRec)<>0;
 FindClose(SearchRec);
 RemoveDir(Dir);
end;

Там был пример удаления каталога с подкаталогами, но мне он не понравился.

Borland_Delphi_6

Дата 16.1.2005, 22:13 (ссылка)

(нет голосов)

Загрузка ...

LoneLINEss

Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

Репутация: нет
Всего: 20

У меня drkb старой версии smile

--------------------

Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии

Illusion Dolphin

Дата 16.1.2005, 22:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Смысл в этом, хотя написать можно оптимальнее (это я оочень давно писал):

Код


Procedure deldir(dir : String);
Var
 Found  : integer;
 SearchRec : TSearchRec;
 f,fdir:textfile;
begin
  If dir[length(dir)]<>'\' then dir:=dir+'\';
  Found := FindFirst(dir+'*.*', faAnyFile, SearchRec);
  while Found = 0 do
  begin
   if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
   begin
  If fileexists(dir+SearchRec.Name) then begin
  try
  Filesetattr(dir+SearchRec.Name,0);
  Assignfile(f,dir+SearchRec.Name);
  {$I-}
  erase(f);
  {$I+}
  except;
  end;
  end else If directoryexists(dir+SearchRec.Name) then deldir(dir+SearchRec.Name);
   end;
    Found := sysutils.FindNext(SearchRec);
  end;
  FindClose(SearchRec);
  try
 removedir(dir);
  except
  end;
end;

Это сообщение отредактировал(а) Illusion Dolphin - 16.1.2005, 22:16

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

NiJazz

Дата 16.1.2005, 22:26 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

Цитата

У меня drkb старой версии smile

Так скачай новую smile

Borland_Delphi_6

Дата 16.1.2005, 22:30 (ссылка)

(нет голосов)

Загрузка ...

LoneLINEss

Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

Репутация: нет
Всего: 20

NiJazz
У меня проблемы с Инетом. http://forum.vingrad.ru/index.php?showtopic=39800 - как только решу эту проблему буду качать нахаляву smile

--------------------

Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »