JAVA編程題遞歸遍歷D盤(pán)下的所有文件夾和文件？組件esystemimportjava.io.Filepublic文件class Dir{ public static void main（String

JAVA編程題遞歸遍歷D盤(pán)下的所有文件夾和文件？

組件esystemimportjava.io.Filepublic文件class Dir{ public static void main（String[]args）{ File d=新文件（“d:”） Dir（d） } public static void Dir（File Dir）{ if（目錄存在（））{ （文件f:目錄文件（））{ if（f.isDirectory（））{ 系統(tǒng)輸出打?。ā澳夸洠骸眆、 getName（）） Dir（f） }其他{ 系統(tǒng)輸出打?。ā盕ile:”f.Getname（））（T/T/T}（T/T/T}（T/T}（T/T}（T/T}（T/T}）（T/T}（T/T}（T/T}（T/T}）（T/T}（T/T}）（T/T}（T/T}）（T/T}（T/T}））可以用dir遞歸調(diào)用，但必須使用一些特殊技能：遍歷文件夾時(shí)，如果遇到子文件夾，不應(yīng)立即遞歸調(diào)用它。在遍歷整個(gè)文件夾之后，應(yīng)該先將其存儲(chǔ)在數(shù)組中，然后通過(guò)循環(huán)遞歸調(diào)用數(shù)組中的每個(gè)子文件夾，這樣dir函數(shù)就不會(huì)受到干擾。

Sub ssdir（P as string）dim d（）as string，F(xiàn) as string，I as long F=dir（P&；“*）。*“，vbdirectory vbnormal vbarchive vbhidden vbreadonly vbsystem）do until f=”“if（getattr（P&”“&；f）and vbdirectory）<> 0 then”如果它是子文件夾，則ReDim preserve D（I）D（I）=fEnd if f=dir循環(huán)I=0以遞歸方式調(diào)用nexten sub