C++Builder相談室 Part19 - 暇つぶし2ch

C++Builder相談室 Par ..

63:デフォルトの名無しさん
08/09/09 06:57:56
>>33です。
>>34 >>35 返信ありがとうございました。
お陰様で、かなめの部分はこんな感じでできました。
void　　FindPathPattern(TStringList *paths, AnsiString dir, const TStringList *items, int level)
{
　　TSearchRec　sr;
　　int　　　　 attr;

　　if (level < items->Count-1) {
　　　　// フォルダ検索＆再帰
　　　　attr = faAnyFile;
　　　　if (FindFirst(dir+items->Strings[level], attr, sr) == 0) {
　　　　　　do {
　　　　　　　　if (sr.Attr & faDirectory) {
　　　　　　　　　　FindPathPattern(paths, dir+sr.Name+"\\", items, level+1);
　　　　　　　　}
　　　　　　} while (FindNext(sr) == 0);
　　　　　　FindClose(sr);
　　　　}
　　}
　　else {
　　　　// ファイル検索＆保存
　　　　attr = faAnyFile & ~faDirectory;
　　　　if (FindFirst(dir+items->Strings[level], attr, sr) == 0) {
　　　　　　do {
　　　　　　　　paths->Add(dir+sr.Name);
　　　　　　} while (FindNext(sr) == 0);
　　　　　　FindClose(sr);
　　　　}
　　}
}

次ページ