频道分类

Delphi 下找到目录中的所有文件夹

作者:admin 来源: 日期:2020/4/4 18:30:35 人气: 标签:

 
uses 
  ioutils, Types
 
 
//获取指定目录下的文件与子目录
procedure TForm1.Button1Click(Sender: TObject);
var
  dfs: TStringDynArray;
  str: string;
begin
  dfs := TDirectory.GetFileSystemEntries(path);
  Memo1.Clear;
  for str in dfs do Memo1.Lines.Add(str);
end;