如何查找特定文件

Question

各位大虾,小弟有问题请教
给定一个字符串,需要在文件夹中查找包含该字符串的文伯名,如果存在则取出该文件的文件名~~~
比如一个字符串1234要在一个特定的文件夹中搜索包含该字符串的文件名,我试过用filesearch和findfirst,感觉都不行,请赐教

Answer 1

我记得findfirst可以带通配符吧，应该是没问题的？

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  Rec: TSearchRec;
begin
  FindFirst('c:\windows\*1234*.*', faArchive, Rec);
  ListBox1.Items.Add(Rec.Name);
  while FindNext(Rec) = 0 do
    ListBox1.Items.Add(Rec.Name);
  FindClose(Rec);
end;