Удаление файлов

[Liones]

Не пойму почему удаляет не все файлы

if FindFirst('_Q*.db', $23, FileName) = 0 then
  begin
    repeat
      DeleteFile(FileName.Name)
    until FindNext(FileName) <> 0;
  end;

я думаю, что ищет в одном каталоге, а мне надо что на всем диске. А как сделать не знаю

[Квэнди]

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

[Квэнди]

http://programmersforum.ru/showthrea...ght=TSearchRec

[FaTaL]

Вот процедура поиска с подкаталогами

procedure TForm1.FindFile(Dir: string);
var
  SR: TSearchRec;
  FindRes: Integer;
  Kol:integer;
begin
  FindRes := FindFirst(Dir + '*.*', faAnyFile, SR);
  while FindRes = 0 do
  begin
    if ((SR.Attr and faDirectory) = faDirectory) and
      ((SR.Name = '.') or (SR.Name = '..')) then
    begin
      FindRes := FindNext(SR);
      Continue;
    end;

    // если найден каталог, то
    if ((SR.Attr and faDirectory) = faDirectory) then
    begin
      // входим в процедуру поиска с параметрами текущего каталога +
      // каталог, что мы нашли
      FindFile(Dir + SR.Name + '\\');
      FindRes := FindNext(SR);
      // после осмотра вложенного каталога мы продолжаем поиск
      // в этом каталоге
      Continue; // продолжить цикл
    end;

    ListBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;

[Liones]

Сообщение от FaTaL

Вот процедура поиска с подкаталогами

procedure TForm1.FindFile(Dir: string);
var
  SR: TSearchRec;
  FindRes: Integer;
  Kol:integer;
begin
  FindRes := FindFirst(Dir + '*.*', faAnyFile, SR);
  while FindRes = 0 do
  begin
    if ((SR.Attr and faDirectory) = faDirectory) and
      ((SR.Name = '.') or (SR.Name = '..')) then
    begin
      FindRes := FindNext(SR);
      Continue;
    end;

    // если найден каталог, то
    if ((SR.Attr and faDirectory) = faDirectory) then
    begin
      // входим в процедуру поиска с параметрами текущего каталога +
      // каталог, что мы нашли
      FindFile(Dir + SR.Name + '\\');
      FindRes := FindNext(SR);
      // после осмотра вложенного каталога мы продолжаем поиск
      // в этом каталоге
      Continue; // продолжить цикл
    end;

    ListBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;

не работает

[Kotofff]

Вот тут :

FindFile(Dir + SR.Name + '\\');

Попробуй так :

FindFile(Dir + SR.Name + '\');

[Liones]

FindRes := FindFirst(Dir + '_Q*.db', faAnyFile, SR);
  while FindRes = 0 do
  begin

Вот здесь всегда FindRes<>0, поэтому цик не выполнятся и ничего не удаляется. Если поменять

FindRes := FindFirst(Dir + '_Q*.db', faAnyFile, SR);
  while FindRes <> 0 do
  begin

то зацикливается.

[FaTaL]

У меня нормально всё работает.

[Liones]

Кажется нашла. Все находит, но не удаляет.

DeleteFile(SR.Name);

А почему?

[FaTaL]

Сообщение от Liones

Кажется нашла. Все находит, но не удаляет.

DeleteFile(SR.Name);

А почему?

Так потому что ты указываешь удалять только имя файла. А путь где?
Сделай так DeleteFile (Dir + SR.Name)