掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
指定ディレクトリにあるフォルダ名の取得方法 (ID：28636)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
暇だったんで勉強ついでに作ってみました。 ミスがあるかも・・・？ （Edit,Button,ListBoxを1個ずつ置いて実行してください。） //サブフォルダが見つかったときの処理 procedure OnSubDirFound(dir: string); begin Form1.ListBox1.Items.Add(dir); end; //再帰的にサブフォルダを探索 procedure _EnumSubDirs(dir: string); var sr: TSearchRec; begin OnSubDirFound(dir); if FindFirst(dir+'*', faDirectory, sr)=0 then begin repeat if ((sr.Attr and faDirectory)=sr.Attr)and(sr.Name<>'.')and(sr.Name<>'..') then begin _EnumSubDirs(dir+sr.Name+'\'); end; until FindNext(sr)<>0; FindClose(sr); end; end; //必ずパスの最後が'\'になるように procedure EnumSubDirs(dir: string); begin _EnumSubDirs(IncludeTrailingPathDelimiter(dir)); end; procedure TForm1.Button1Click(Sender: TObject); begin EnumSubDirs(Edit1.Text); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.