不用控件，如何得到一目录下的所有文件？？？

Question

我可以通过DriverlistBox和DirectoryListBox得到某一目录，但是我想将这一目录下的所有文件不通过可视化控件得到（既不用FileListBox），我该如何取文件，并将这些文件放在哪里那？
  在线等待！

Answer 1

用API.
FindFirst, FindNext等.

Answer 2

是不是这样的：Dir:=DirectoryListBox1.Directory;
              filename:='\*.*'
              FindResult:=FindFirst(Dir+filename,faAnyFile,FSearchRec);
              try
               while FindResult=0 do
                 begin
                  FindResult:=FindNext(FSearchRec);
                 end;
              finally
               findClose(FSearchRec);  
               end; 这样写对不对？

Answer 3

请大家帮帮忙阿！
上面的代码编译不过去，是什么原因那？我该怎么修改那？
就是findfirst那段代码有问题阿，帮帮忙阿！

Answer 4

不是你的findfirst有问题你应该这样写Dir:=DirectoryListBox1.Directory;
              filename:='\*.*'
              FindResult:=FindFirst(Dir+filename,faAnyFile,FSearchRec);
              while FindResult=0 do
              begin
                  if (FSearchRec.Name<>'.')and(FSearchRec.Name<>'..')
                  FindResult:=FindNext(FSearchRec);
              end;
               findClose(FSearchRec);  
              end;

Answer 5

是不是漏了个';'?在 filename:='\*.*'