delphi IOUtils 获取当前目录下所有的文件/文件夹


本文整理自网络,侵删。

 
unit frmMain;

interface

uses
  System.Types, System.IOUtils, Winapi.Windows, Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button2: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button2Click(Sender: TObject);
  private
    procedure ListFiless(FilePath: string);
    procedure ListDirs(DirName: string);

    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin
  // 获取当前目录下所有的文件
  ListFiless(Edit1.Text);
  // 获取当前目录下所有的文件夹
  ListDirs(Edit1.Text);

end;



procedure TForm1.ListDirs(DirName: string);
var
  DirList: TStringDynArray;
  Name: string;
begin
  // 获取某个路径下的所有文件夹
  DirList := TDirectory.GetDirectories(DirName);
  // 遍历,获取每一个文件夹(路径)
  for Name in DirList do begin
    // 将获取到的路径加入窗口
    Self.Memo1.Lines.Add(Name);
    // 获取这个路径下所有文件
    ListFiless(Name);
    // 递归,继续获取当前(Name)目录下的文件夹
    ListDirs(Name);
  end;
end;

procedure TForm1.ListFiless(FilePath: string);
var
  FileList: TStringDynArray;
  FileName: string;
begin
  // 获取当前路径下的所有文件
  FileList := TDirectory.GetFiles(FilePath);
  //遍历数组,获取文件信息
  for FileName in FileList do begin
    Self.Memo1.Lines.Add(FileName);
  end;
end;



end.

相关阅读 >>

Delphi 在程序运行时改变控件大小

Delphi 获取分解时间日期的年月日

Delphi 判断当前网络连接方式

Delphi opendialog设置默认打开路径

线程池的概念

Delphi 删除字符串中首个字符

Delphi 屏幕拷贝程序的源代码

Delphi xe8 为image设置渐变效果

Delphi 自带的 base64 编解码函数

Delphi getprocessisadmin()判断exe是否以管理员身份启动

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...