掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
サブフォルダを含むファイルの検索 (ID:26975)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure THogeForm.Button1Click(Sender: TObject); var gCD_FPath: array [0..9] of String; i: Integer; {検索} procedure findFiles(aFolder :String); var searchRec :TSearchrec; begin {列挙開始} if FindFirst(aFolder + '\*', faAnyFile, searchRec) = 0 then begin //ここから〜 if searchRec.Name[1] <> '.' then begin if (AnsiUpperCase(ExtractFileExt(searchRec.Name)) = '.LZH') or (AnsiUpperCase(ExtractFileExt(searchRec.Name)) = '.TXT') then begin gCD_FPath[i]:=aFolder + '\' + searchRec.Name; inc(i); if (searchRec.Attr AND faDirectory) > 0 then begin {再帰処理} findFiles(aFolder + '\' + searchRec.Name); end; end; end; //〜ここまで while (FindNext(searchRec) = 0) do begin //ここから〜 //〜ここまで {と同じ ただし、i = 10で Break;} end; {終了} FindClose(searchRec); end; end; begin findFiles('F:'); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.