VB中如何Dir實現(xiàn)子文件夾的遞歸遍歷？使用dir可以實現(xiàn)遞歸調(diào)用，但我們必須使用一些特殊的技巧：遍歷文件夾時，如果遇到子文件夾，不要立即遞歸調(diào)用，先將其存儲在數(shù)組中，當整個文件夾遍歷并處理所有文件時

VB中如何Dir實現(xiàn)子文件夾的遞歸遍歷？

使用dir可以實現(xiàn)遞歸調(diào)用，但我們必須使用一些特殊的技巧：遍歷文件夾時，如果遇到子文件夾，不要立即遞歸調(diào)用，先將其存儲在數(shù)組中，當整個文件夾遍歷并處理所有文件時（換言之，這次執(zhí)行所有dir函數(shù)時），然后以這種方式在數(shù)組中循環(huán)，dir函數(shù)將不會受到干擾。

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