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 ansi与unicode编码互转

Delphi线程简单创建、挂起、激活与终止

Delphi中关闭“返回值…可能未定义”的警告

Delphi 加壳exe的方法

Delphi 查找指定目录,指定扩展名的所有文件名

Delphi 枚举数组

Delphi 如何将颜色值转换为灰度颜色值?

Delphi 悬浮窗口 浮动窗口 迅雷下载浮动窗口的实现

Delphi bmp 转换jpg

Delphi 通过注册表获取系统版本和cpu型号

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



打赏

取消

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

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

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

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

评论

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