如何在VB中实现目录遍历

　　　　sSubDir(iIndex) = strPathName & "\" & strFileName '添加到目录数组

　　　End If

　　Else

　　　objList.AddItem strPathName & "\" & strFileName

　　End If

　End If

Loop

　'如果该目录下有目录，则根据目录数组递归遍历

　If iIndex > 0 Then

　　For i = 1 To iIndex

　　　sDirTraversal sSubDir(i), objList

　　Next

　End If

End Sub

156

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!