獲取目錄下所有文件名的代碼
更新時間：2011年07月11日 20:53:39 作者：
獲取目錄下所有文件名的代碼，需要的朋友可以參考下。
一：獲取指定文件夾的文件
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;
復制代碼 代碼如下:
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;
相關文章
Wireshark是應用最普遍的一款開源抓包軟件,常用來檢測收集成績、攻打溯源、或許剖析底層通訊機制,本文給大家講解Wireshark零基礎使用超詳細教程,感興趣的朋友一起看看吧2023-08-08
vscode使用editorconfig插件以及.editorconfig配置文件說明詳解
這篇文章主要介紹了vscode使用editorconfig插件以及.editorconfig配置文件說明詳解，文中通過示例代碼介紹的非常詳細，對大家的學習或者工作具有一定的參考學習價值，需要的朋友們下面隨著小編來一起學習學習吧2020-04-04
這篇文章主要為大家介紹了Alfred?+?Gitee搭建免費圖床的使用實例詳解，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進步，早日升職加薪2023-01-01
這篇文章主要介紹了Clion ROS開發(fā)環(huán)境設置技巧,本文通過圖文并茂的形式給大家介紹的非常詳細，對大家的學習或工作具有一定的參考借鑒價值，需要的朋友可以參考下2020-08-08
在微信小程序開發(fā)過程中需要在小程序里使用SVG矢量圖標,下面為大家分享2種在微信小程序中引入SVG矢量圖標的方法2018-10-10
這篇文章主要介紹了VSCode 云同步擴展設置Settings Sync插件，文中通過示例代碼介紹的非常詳細，對大家的學習或者工作具有一定的參考學習價值，需要的朋友們下面隨著小編來一起學習學習吧2020-05-05
win10+RTX3050ti+TensorFlow+cudn+cudnn配置深度學習環(huán)境的方法
這篇文章主要介紹了win10+RTX3050ti+TensorFlow+cudn+cudnn配置深度學習環(huán)境，本文給大家介紹的非常詳細，對大家的學習或工作具有一定的參考借鑒價值,需要的朋友可以參考下2022-06-06
使用git處理github中提交有沖突的pull request的問題
這篇文章主要介紹了使用git處理github中提交有沖突的pull request,本文給大家介紹的非常詳細，對大家的學習或工作具有一定的參考借鑒價值，需要的朋友可以參考下2020-11-11
今天小編就為大家分享一篇關于Git原理和常用操作的文章，小編覺得內容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧2018-10-10
git如何從某個分支的指定歷史版本中創(chuàng)建新分支
這篇文章主要介紹了git如何從某個分支的指定歷史版本中創(chuàng)建新分支問題，具有很好的參考價值，希望對大家有所幫助。如有錯誤或未考慮完全的地方，望不吝賜教2023-05-05