获取目录下所有文件名的代码_相关技巧_脚本之家--HTML5中文学习网

获取目录下所有文件名的代码_相关技巧_脚本之家

2014-01-17 23:09:02 [小大] 已经帮助：人解决问题

一：获取指定文件夹的文件

复制代码代码如下:

 
procedure searchfile(path:string);//注意,path后面要有'/'; 
var 
SearchRec:TSearchRec; 
found:integer; 
begin 
found:=FindFirst(path+'*.*',faAnyFile,SearchRec); 
while found=0 do 
begin 
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') 
and (SearchRec.Attr<>faDirectory) then 
ListBox1.Add(SearchRec.Name); 
found:=FindNext(SearchRec); 
end; 
FindClose(SearchRec); 
end; 

复制代码代码如下:

 
procedure SearchFile(path:string); 
var 
SearchRec:TSearchRec; 
found:integer; 
begin 
found:=FindFirst(path+'*.*',faAanyFile,SearchRec); 
while found=0 do 
begin 
if (SearchRec.Name<>'.') and (SearchRec.name<>'..) and 
(SearchRec.Name=faDirectory) then 
SearchFile(SearchRec.Name+'/') 
else 
LisBox1.Add(SearchRec.Name); 
found:=FindNext(SearchREc); 
end; 
FindClose(SearchRec); 
end; 

（责任编辑：）