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

本文整理自网络，侵删。

 
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;

 

相关阅读 >>

Delphi mediaplayer 实现录音

Delphi 一个定时器timer1相关的简单例子

Delphi memo 字符串换行

Delphi 限制tedit控件只能输入数字,小数点和负号

Delphi apihook

Delphi 如何刷新文件图标

Delphi 判断某个磁盘分区是否存在

Delphi 坐标截图如何实现

Delphi用多媒体库 bass.dll 播放 mp3 - 打开、播放、暂停、停止

Delphi windows 编程[15] - 菜单消息: wm_command

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 下找到目录中的所有文件夹