掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
サブフォルダを含むファイルの検索 (ID:26974)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
はじめまして。 CDドライブ内を検索し、".LZH"と".TXT"のフルパスを 配列に(Listではなく) 代入するという関数を作成しています。 過去ログを参考にしていたのですが、再起処理がうまくゆきません。 ご教授願いただけないでしょうか。 Var i : Integer; Path : String; SearchRec : TSearchRec; SearchRes : Integer; Attri : Integer; gCD_FPath : array [0..9] of String; begin i := 0; Path := 'CDドライブ名'; //ドライブの先頭文字だけが入ります(例：F) SearchRes := FindFirst(Path + ':\' + '*.*', faAnyFile, SearchRec); try while SearchRes = 0 do begin Attri := SearchRec.Attr and faDirectory; if (Attri = faDirectory) and (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then //再起処理 else //ヒットしたファイルを代入 if (AnsiLowerCase(ExtractFileExt(SearchRec.Name)) = '.LZH') or (AnsiLowerCase(ExtractFileExt(SearchRec.Name)) = '.TXT') then gCD_FPath[i]:=Path + ':\' + SearchRec.Name; inc(i); SearchRes := FindNext(SearchRec); end; finally FindClose(SearchRec); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.