delphi 取当前目录下所有文件夹名和文件名

procedure SearchLangFiles(const Dir: string; List: TStrings; IsDir: Boolean);

var

SearchRec: TSearchRec;

F: Integer;

begin

F := FindFirst(IncludeTrailingPathDelimiter(Dir) + '*.*', faAnyFile, SearchRec);

List.Clear;

while F = 0 do

begin

if (SearchRec.Name <> '.') and (SearchRec.name <> '..') then

begin

if not IsDir and (SearchRec.Attr and faDirectory <> faDirectory) then

List.Add(ExtractFileName(SearchRec.Name))

else if IsDir and (SearchRec.Attr and faDirectory = faDirectory) then

List.Add(ExtractFileName(SearchRec.Name));

end;

F := FindNext(SearchRec);

end;

FindClose(SearchRec);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

SearchLangFiles('d:\',memo1.Lines,false); //false 取当前目录下所有文件名； True 取当前目录下所有文件夹名；

end;

推荐分享