Delphi下遍歷資料夾下所有檔案的遞迴演算法

2021-04-12 17:56:51 字數 1087 閱讀 4583

在實際開發中經常需要遍歷某個資料夾及其子資料夾下的檔案,看到很多人不知道如何做,忍不住寫段東西與大家分享。

procedure maketree(var slfile: tstrings; 

const

fileext: 

string

);var

sr : tsearchrec;

err : integer;

trsize, filepath : 

string

;begin

err:

=findfirst(

'*.*

', $

11, sr) ;

while (err =0

) do

begin

ifsr.name[1] 

<>'.

'then

begin

iffileext =''

then

slfile.add(sr.name)

else

begin

ifansiuppercase(copy(sr.name, length(sr.name) -3

, 4)) =

ansiuppercase(fileext) then

slfile.add(sr.name);

end;

end;

if((sr.attr and fadirectory) 

<>

0) and (sr.name[1] 

<>'.

') then

begin

chdir(sr.name) ;

maketree(slfile, fileext);

chdir('..

') ;

end ;

err:

=findnext(sr) ;

end ;

end;

slfile 傳入乙個字串列表以儲存得到的結果, fileext 為 '' 可以遍歷所有檔案,fileext 指定為 ".txt" 或者 ".***" 可以指定查詢檔案的字尾名.

如果需要將目錄也返回,可以修改一下**。

遍歷資料夾下所有檔案

對於遍歷資料夾來說,其實並不麻煩,使用file轉化位址物件,再用file組獲取內容,其實google都差不多做好了,我就懶得廢話了,直接上 public listlist new arraylist 遍歷所有檔案 public listgetfilelist string path else ret...

shell 遍歷資料夾下所有檔案

linux 下有tree命令可以檢視指定資料夾下的所有檔案 需要安裝tree,ubuntu下sudo apt get install tree 要實現這樣的功能,可以有多種實現方式,指令碼語言就是一種方便快捷的方式,python,shell都可以很容易實現。最近在學習makefile編寫,其中有很多...

OpenCV遍歷資料夾下所有檔案

opencv中有實現遍歷資料夾下所有檔案的類directory,它裡面包括3個成員函式 1 getlistfiles 遍歷指定資料夾下的所有檔案,不包括指定資料夾內的資料夾 2 getlistfolders 遍歷指定資料夾下的所有資料夾,不包括指定資料夾下的檔案 3 getlistfilesr 遍歷...