和 TDirectory.GetFiles 用法一樣, TDirectory.GetDirectories 是用來獲取子目錄的.

另外還有 TDirectory.GetFileSystemEntries 可同時獲取文件與子目錄, 用法都一樣.

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Memo1: TMemo;Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses IOUtils, Types;const path = 'C:\Program Files\Embarcadero\RAD Studio\7.0';//獲取指定目錄下的文件與子目錄 procedure TForm1.Button1Click(Sender: TObject); vardfs: TStringDynArray;str: string; begindfs := TDirectory.GetFileSystemEntries(path);Memo1.Clear;for str in dfs do Memo1.Lines.Add(str); end;//獲取指定目錄下的、名稱是 L 開頭的文件與子目錄 procedure TForm1.Button2Click(Sender: TObject); vardfs: TStringDynArray;str: string; begindfs := TDirectory.GetFileSystemEntries(path, 'L*');Memo1.Clear;for str in dfs do Memo1.Lines.Add(str); end;//獲取指定目錄及嵌套目錄下的所有文件與子目錄 procedure TForm1.Button3Click(Sender: TObject); vardfs: TStringDynArray;str: string; begindfs := TDirectory.GetFileSystemEntries(path + '\source', TSearchOption.soAllDirectories, nil);Memo1.Clear;for str in dfs do Memo1.Lines.Add(str); end;//使用 TDirectory.TFilterPredicate 函數參數 procedure TForm1.Button4Click(Sender: TObject); vardfs: TStringDynArray; beginMemo1.Clear;dfs := TDirectory.GetFileSystemEntries(path,function(const Path: string; const SearchRec: TSearchRec): Booleanbegin//這里可以有更多過濾條件或其他處理Memo1.Lines.Add(Path + '\' + SearchRec.Name);end); end;end.

轉載于:https://www.cnblogs.com/del/archive/2009/10/16/1584768.html

總結

以上是生活随笔為你收集整理的Delphi 2010 新增功能之: IOUtils 单元(4): TDirectory.GetDirectories的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。