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

JAVA編程題遞歸遍歷D盤下的所有文件夾和文件？

組件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)輸出打印（“目錄：”f、 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遞歸調用，但必須使用一些特殊技能：遍歷文件夾時，如果遇到子文件夾，不應立即遞歸調用它。在遍歷整個文件夾之后，應該先將其存儲在數組中，然后通過循環(huán)遞歸調用數組中的每個子文件夾，這樣dir函數就不會受到干擾。

Sub ssdir（P as string）dim d（）as string，F 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以遞歸方式調用nexten sub