关于文件操作的问题
请问各位大虾，如果我想找出某一路径下的文件夹列表，某一种类型（后缀名）文件列表，列表中有他们的名称，如何来做，用什么实现，最好有点源代码，谢谢！ 问题点数：100、回复次数：5Top
1 楼samcrm（镜花水月）回复于 2003-09-04 17:04:54 得分 10
在Delphi的Win31控件组里有你需要的控件，不用写任何代码。Top
2 楼upingking（）回复于 2003-09-04 17:24:29 得分 10
Delphi的Win31控件组中的FileListBox1就行阿Top
3 楼guge（天道酬勤）回复于 2003-09-04 20:30:54 得分 20
drivercombobox控件：显示当前计算机中的全部驱动器
drivectorylistbox控件：显示当前驱动器的的树形目录
filterlistbox控件：为当前路径中的所有文件列表
组合使用可得到任意路径的文件Top
4 楼hare007（hare）回复于 2003-09-04 20:43:52 得分 10
你可以找一下介绍关于delphi自带的控件的书籍看看，会对对你很有帮助的
Top
5 楼zjqyb（风清扬*任它溺水三千,我只取一瓢饮*）回复于 2003-09-04 20:51:00 得分 50
Procedure GetAllFileName(const fpath: String; filelist: TstringList);
var
fs: TsearchRec;
begin
if findfirst(fpath+'\*.*',faAnyFile,fs)<>0 then
exit;
repeat
if (fs.name<>'.') and (fs.name<>'..') then
if((fs.Attr and faDirectory)=faDirectory) then
GetAllFileName(fpath+'\'+fs.Name,filelist)
else
filelist.Add(fpath+'\'+fs.name);
until findnext(fs)<>0 ;
sysutils.findclose(fs);
end;Top
