掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ファイルを「*abc*.txt」で検索したい (ID：30693)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
訂正です //============================================================================= // 指定フォルダ下でファイルを検索しListBoxに列挙する関数。見つかった個数を返す // 検索文字にはワイルドカード使用可能( * , ? ) //============================================================================= function TForm1.FileSearch( SearchDir , SearchName : string):integer; var S: String; SearchRec: TSearchRec; ret: integer; begin ListBox1.Items.Clear; S := IncludeTrailingPathDelimiter(SearchDir) + SearchName ; ret := FindFirst(S, faAnyFile, SearchRec); Result := 0; if ret = 0 then begin repeat if not ((SearchRec.Name = '.') or (SearchRec.Name = '..')) then begin ListBox1.Items.Add(SearchRec.Name); Result := Result + 1 ; end; until FindNext(SearchRec) <> 0; end; SysUtils.FindClose(SearchRec); end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage( IntToStr(FileSearch('C:\hogehoge' , '*abc*.txt')); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.