送分！！ 菜鸟问题

Question

给定文件的路径名 如何得到 路径下所有文件名和文件数量

Answer 1

用directoryBox和FileList
directoryBox.drivc='d';
directoryBox.directory='\ff\';
directoryBox.FileList:=FileList1;
FileList1.count=文件数；
FileList1.items=所有文件名

Answer 2

楼上的，
这一句directoryBox.FileList:=FileList1;
是不是应该改为FileList1 := directoryBox.FileList;

Answer 3

超级猛料：
procedure findall(disk,path: String; var fileresult: Tstrings); 
varfpath: String;fs: TsearchRec;beginfpath:=disk+path+'\*.*';if findfirst(fpath,faAnyFile,fs)=0 thenbeginif (fs.Name<>'.')and(fs.Name<>'..') thenif (fs.Attr and faDirectory)=faDirectory thenfindall(disk,path+'\'+fs.Name,fileresult)elsefileresult.add(disk+strpas(strupper(pchar(path)))+'\'+strpas(strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')');while findnext(fs)=0 dobeginif (fs.Name<>'.')and(fs.Name<>'..') thenif (fs.Attr and faDirectory)=faDirectory thenfindall(disk,path+'\'+fs.Name,fileresult)elsefileresult.add(disk+strpas(strupper(pchar(path)))+'\'+strpas(strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')');end;end;findclose(fs);end;

Answer 4

用FindFirstFile和FindNextFile 加个循环就可以了

Answer 5

1、FindFirstFile和FindNex。
2、》》》》》》》》》