掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォルダからMP3ファイルを検索してListBox1に表示するには？ (ID：8355)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
あるディレクトリのなかの特定の拡張子をもったファイルを列挙するには FindFirst FindNext FindClose を使います。ヘルプで調べてください。 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; このコードでは、C\ ディレクトリの *.txt ファイルを列挙して ListBox1 に 01 test.txt 02 readme.txt のように表示します。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.