あるフォルダ以下のサブフォルダをすべて取得したい。
以下が参考になった。
- http://stackoverflow.com/questions/6536525/how-to-search-a-file-through-all-the-subdirectories-in-delphi
- http://www.gesource.jp/weblog/?p=4509
- http://h4s.hatenablog.com/entry/2014/01/22/193235
動作確認
C++ Builder XE4
RAD Studio 10.2 Tokyo Update 2 (追記: 2018/01/09)
# include <IOUtils.hpp> // for TDirectory.XXX
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String baseDir = L"D:\\Data\\Test";
TStringDynArray dirList;
TSearchOption option = TSearchOption::soAllDirectories; // すべてのフォルダを取得
dirList = TDirectory::GetDirectories(baseDir, L"*", option);
for(int idx=0; idx<dirList.Length; idx++) {
Memo1->Lines->Add(dirList[idx]);
}
}
//---------------------------------------------------------------------------