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

uses 
  ioutils, Types


procedure TForm2.FormCreate(Sender: TObject);
var
  dfs : TStringDynArray;
  strDirectory : string;
begin
  dfs := TDirectory.GetDirectories('C:\abcde', '*');
  for strDirectory in dfs do
  begin

  end;
end;
相关文章
相关标签/搜索