取磁盘文件的问题!

Question

我在本机上的目录下,假如说在  D:\标准  下有一些word文件,现在我想把这些word文件的文件名取出来,不知道能不能实现,该怎么实现?希望知道的兄弟们帮一下,谢谢!

Answer 1

可以
用FindFIRST,FINDNEXT,搭配文件属性，循环，就可以了

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
  sr:tsearchrec;
  Path:String;
begin
  Path:='D:\';
  if findfirst(path+'*.*',faanyfile,sr)=0 then
     Memo1.Lines.Add(Sr.Name);
  while FindNext(sr)=0 do
    begin
      Memo1.Lines.Add(sr.Name);
    end;
end;Path就是你的目录......

Answer 3

楼上,我在Path中输入  D:\标准  但是在Memo中显示出了'标准',而没有把'标准'下的文件名显示出来,
请告诉一下该怎么改一下

Answer 4

？不会把，这也要问？
Path:='D:\标准\';