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;
Delphi 下找到目录中的所有文件夹
最新推荐文章于 2020-09-12 02:56:05 发布