掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
同階層にあるフォルダ名を連続して取得するには？ (ID：20990)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>FindFirst 関数でAttr パラメータにfaDirectoryを含める 実際に確かめてみたところ、 FindFirst 関数でAttr パラメータにfaDirectoryを指定した場合、 フォルダが「隠しファイル」の設定の場合、検索に出てこないので、 Attr パラメータにはfaAnyFileを指定して、 procedure TForm1.Button1Click(Sender: TObject); var S: String; SearchRec: TSearchRec; ret: integer; begin ListBoxFileName.Items.Clear; S := 'c:\Program Files\*.*'; ret := FindFirst(S, faAnyFile, SearchRec); if ret = 0 then begin repeat if SearchRec.Attr and faDirectory > 0 then ListBoxFileName.Items.Add(SearchRec.Name); until FindNext(SearchRec) <> 0; end; SysUtils.FindClose(SearchRec); end; のような感じですればフォルダのみ取得できそうです。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.