獲取目錄下所有文件名的代碼
更新時間：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;
相關文章
這篇文章主要介紹了全網(wǎng)最新的nacos?2.1.0集群多節(jié)點部署教程,本文給大家介紹的非常詳細，對大家的學習或工作具有一定的參考借鑒價值，需要的朋友可以參考下2022-07-07
這篇文章主要介紹了程序員開發(fā)項目是選擇效率還是質(zhì)量呢？本文對這個每個程序員都會遇到的一個問題做了講解,需要的朋友可以參考下2014-07-07
關于VSCode 裝好ESLint 插件 import 報黃線的問題
這篇文章主要介紹了VSCode 裝好ESLint 插件 import 報黃線的問題,本文通過圖文并茂的形式給大家介紹的非常詳細，對大家的學習或工作具有一定的參考借鑒價值，需要的朋友可以參考下2020-11-11
這篇文章主要介紹了Git基礎知識以及常用命令,在日常工作中git少不了，所以編寫本篇文章教大家如何使用git，便于日后工作與學習,需要的朋友可以參考下2023-05-05
這篇文章主要介紹了使用IDEA回滾某次提交的代碼步驟,在平時的開發(fā)中,不小心commit了錯誤的代碼怎么辦,就需要用到回滾了,需要的朋友可以參考下2023-03-03
fiddler抓包小技巧之自動保存抓包數(shù)據(jù)的實現(xiàn)方法分析【可根據(jù)需求過濾】
這篇文章主要介紹了fiddler抓包小技巧之自動保存抓包數(shù)據(jù)的實現(xiàn)方法,較為詳細的分析了fiddler自動保存抓包數(shù)據(jù)及根據(jù)需求過濾相關操作技巧,需要的朋友可以參考下2020-01-01
這篇文章主要介紹了在MAUI中使用Masa?Blazor,探索一下如何在MAUI中使用Masa?Blazor,開頭介紹了什么是MAUI，需要的朋友可以參考下2022-04-04
Cursor?是集成了?GPT-4?的?IDE?工具，目前免費并且無需?API?Key，支持?Win、Mac、Linux?平臺，可以按要求生成代碼，或者讓?AI?幫助優(yōu)化代碼，分析代碼，這篇文章主要介紹了通過Cursor工具使用GPT-4的方法,需要的朋友可以參考下2023-05-05
這篇文章主要為大家詳細介紹了Git基礎學習中分支的基本操作，例如分支的創(chuàng)建、查看、切換和刪除等，感興趣的小伙伴可以跟隨小編一起學習一下2022-10-10
這篇文章主要為大家介紹了vscode?ssh遠程連接服務器的思考淺析，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進步，早日升職加薪2023-02-02