vb递归算法原理 VB中如何Dir实现子文件夹的递归遍历？

VB中如何Dir实现子文件夹的递归遍历？

使用dir可以实现递归调用，但我们必须使用一些特殊的技巧：遍历文件夹时，如果遇到子文件夹，不要立即递归调用，先将其存储在数组中，当整个文件夹遍历并处理所有文件时（换言之，这次执行所有dir函数时），然后以这种方式在数组中循环，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循环I=0以递归方式调用nexten sub

vb递归算法原理 简单vb实用小程序 java递归算法经典实例

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。