有什么方法来取出一个文件夹下的所有文件的文件名吗？

Question

有什么方法来取出一个文件夹下的所有文件的文件名吗？

Answer 1

查找一个目录下的某些特定的文件  
关键词:搜索文件 查找文件 检索文件  
方法如下： 
FileSearch ：查找目录中是否存在某一特定文件
FindFirst ：在目录中查找与给定文件名（可以包含匹配符）及属性集相匹配的第一个文件 
FindNext ：返回符合条件的下一个文件 
FindClose ：中止一个FindFirst / FindNext序列 //参数： 
//Directory : string 目录路径
//RetList : TStringList 包含了目录路径和查询到的文件Funtion FindAllFileInADirectory(const : string; var RetList : TStringList):Boolean;
var
SearchRec: TSearchRec;
begin 
if FindFirst(Directory + ’*.*’, faAnyFile, SearchRec) = 0 then 
begin
repeat
RetList.Add(Directory + ’’ + SearchRec.Name);
until (FindNext(SearchRec) <> 0);
end 
FindClose(SearchRec);
end;

Answer 2

或者下面这个也可以啊！function GetAllFile(const Path: string; FileEx: string = '*.*'): TStringList;
var
  f: TSearchRec;
  Ret: Integer;
begin
  FileEx := UpperCase(FileEx);
  Result := TStringList.Create;
  Ret := FindFirst(Path + '\*.*', faAnyFile, f);
  while Ret = 0 do
  begin
    if f.Attr = faDirectory then
    begin
      if (f.Name <> '.') and (f.Name <> '..') then
        GetAllFile(Path + '\' + f.Name)
    end
    else
      if UpperCase(ExtractFileExt(f.Name)) = FileEx then
        Result.Append(Path + '\' + f.Name);    Ret := FindNext(f)
  end;
  FindClose(f)
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Assign(GetAllFile('c:\windows', '.xls'));
end;