ファイル名を列挙するには？

解決

yuki 2006-05-03 20:59:25 No: 21334 IP: 192.*.*.*

こんばんは、yukiです。
はじめて利用させていただきます。
1週間ほど前にdelphi2005を購入しました超初心者ですが、
よろしくお願いします。
質問ですが、
ダイアログボックスなどを利用して、フォルダのフルパスを取得する
ところまでできたのですが、そのフォルダ内のファイルや、そのフォルダ
以下すべてのファイルを列挙（取得）する方法がわかりません。
どなたかご指導していただけないでしょうか。
よろしくお願いします。

編集削除

igy 2006-05-03 21:29:34 No: 21335 IP: 192.*.*.*

FindFirst 関数
FindNext 関数
をつかうのはどうでしょう？

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
  SearchRec: TSearchRec;
  ret: integer;
begin
  ListBox1.Items.Clear;

  S := 'c:\*.*';

  ret := FindFirst(S, faAnyFile, SearchRec);
  if ret = 0 then
  begin
      repeat
        if not ((SearchRec.Name = '.') or (SearchRec.Name = '..')) then
            ListBox1.Items.Add(SearchRec.Name);
      until FindNext(SearchRec) <> 0;
  end;
  SysUtils.FindClose(SearchRec);
end;

編集削除

yuki 2006-05-03 21:51:42 No: 21336 IP: 192.*.*.*

はじめまして
こんばんは、igyさん。
超速のご回答にびっくりです。
なるほどこんな関数があるんですね。
以前vbaをちょっとやったことがありましたが
似たような関数があったような…。
たいへん勉強になりました。
このコード大切に使わせていただきます。
ありがとうございました。
今後ともご指導のほどよろしくお願いします。
では。。

編集削除