Как заставить FindFirst искать файлы в текущем каталоге?

Question

У меня возникли проблемы с написанием кода для процедуры, которая откроет папку каталога и удалит все файлы внутри нее рекурсивно, чтобы я мог, в свою очередь, сам удалить папку. У меня не будет проблем с рекурсивной процедурой, но я не могу заставить функции FindFirst/FindNext/FindClose работать правильно. Процедура, приведенная ниже, должна искать текущий каталог для любых файлов любого типа (однако я могу злоупотреблять строковыми подстановочными знаками, я не нашел много информации о синтаксисе их использования).

procedure TForm1.Button1Click(Sender: TObject); 
var SR: TSearchRec; 
begin 
ShowMessage(GetCurrentDir); 
if (FindFirst('\*.*',faAnyFile,SR)=0) then 
begin 
    repeat 
    ShowMessage(SR.Name); 
    until FindNext(SR)<>0; 
    FindClose(SR); 
end 
else begin 
    ShowMessage('No matching files found'); 
end; 
end; 

Прямо сейчас, кажется, что независимо от того, что я положил в для файла, процедура не находит каких-либо файлов и всегда возвращает «Ничего не найдено файлов» сообщение.

Answer 1

Путь '\*.*' относится к корневому каталогу диска текущего рабочего каталога. Вероятно, вы хотите пройти GetCurrentDir + '\*' до FindFirst. Или еще лучше, TPath.Combine(GetCurrentDir, '*').

Например, эта программа демонстрирует, что код работает правильно при условии, что вы пройдете соответствующий путь до FindFirst.

program FindFirstDemo; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils, IOUtils; 

var 
    SR: TSearchRec; 

begin 
    Writeln(GetCurrentDir); 
    if FindFirst(TPath.Combine(GetCurrentDir, '*'),faAnyFile,SR)=0 then 
    begin 
    repeat 
     Writeln(SR.Name); 
    until FindNext(SR)<>0; 
    FindClose(SR); 
    end; 
    Readln; 
end.