（1）查詢指定副檔名的檔案
procedure tform1.button1click(sender: tobject);
varsr: tsearchrec;
begin
listbox1.items.clear ;
if findfirst('d:\work\*.*', faanyfile, sr) = 0 then
begin
repeat
if pos('.xls',lowercase(sr.name))>0 then
listbox1.items.add(sr.name) ;
until findnext(sr) <> 0;
findclose(sr);
end;
end;
（2）查詢某目錄下的所有檔案,非目錄
procedure tform1.button2click(sender: tobject);
varsr: tsearchrec;
begin
listbox1.items.clear ;
if findfirst('d:\work\*.*', faanyfile, sr) = 0 then
begin
repeat
if (sr.attr and fadirectory)=0 then
listbox1.items.add(sr.name+ ' '+inttostr(sr.attr)) ;
until findnext(sr) <> 0;
findclose(sr);
end;
showmessage(inttostr(listbox1.items.count));
end;
（3）查詢某目錄下的所有目錄,包含 「.」 「..」
procedure tform1.button2click(sender: tobject);
varsr: tsearchrec;
begin
listbox1.items.clear ;
if findfirst('d:\work\*.*', faanyfile, sr) = 0 then
begin
repeat
if (sr.attr and fadirectory)<>0 then
listbox1.items.add(sr.name+ ' '+inttostr(sr.attr)) ;
until findnext(sr) <> 0;
findclose(sr);
end;
showmessage(inttostr(listbox1.items.count));
end;
delphi遍歷目錄下所有檔案
procedure tbsfilebackupform.searchfile path pchar fileext string filelist tstringlist var searchrec tsearchrec found integer tmpstr string curdir stri...
列出目錄下的所有檔案
定於需要列出的目錄位址 dir c apmserv5.2.6 www htdocs ahinksns ahinkphp 用 opendir 開啟目錄，失敗則中止程式 handle opendir dir or die cannot open dir echo files in dir 用 readd...
swift獲取目錄下所有檔案
我想獲得的功能是獲取某目錄下所有檔案。然後讀取出來放到table view 上 先寫一下怎麼獲取 指定檔案目錄下的檔案 var localmusicdirectoryadress string users goofygao music music let musiclists nsfilemanag...