掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
サブフォルダも検索するには？ (ID：10294)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
フォルダから指定した拡張子のファイルをListBoxに列挙しようと思い、 ここのBBSに載っていたものを参考にしているのですが、 サブフォルダのファイルまで列挙するには、どのようにすれば出来るのでしょうか？ よろしくお願いします。 参考にしたのは https://www.petitmonte.com/bbs/answers?question_id=1583 にあるjokさんの物です。 >procedure TForm1.Button1Click(Sender: TObject); >var > sr:TSearchRec; > ret,cnt:integer; >begin > cnt := 0; > ret := FindFirst('C:\*.txt',faAnyFile,sr); > while ret = 0 do > begin > Inc(cnt); > ListBox1.Items.Add(Format('%.2d %s',[cnt,sr.FindData.cFileName])); > ret := FindNext(sr); > end; > FindClose(sr); >end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.