欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

獲取目錄下所有文件名的代碼

 更新時(shí)間：2011年07月11日 20:53:39   作者：  
獲取目錄下所有文件名的代碼，需要的朋友可以參考下。
一：獲取指定文件夾的文件
復(fù)制代碼 代碼如下:

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;

二：獲取該目錄下的子目錄的文件
復(fù)制代碼 代碼如下:

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;

相關(guān)文章

最新評(píng)論