Question

vb6.0怎样遍历一个指定文件夹？

Answer 1

　sPath是所查找的文件夹的路径，list是返回的文件列表
Public Function GetAllFiles(ByVal sPath As String, list As Collection)
　　Dim item As String
　　Dim oPaths As New Collection
　　item = Dir(sPath, vbDirectory)
　　While Len(item) > 0
　　If item <> "." And item <> ".." Then
　　If (GetAttr(FullPathName(sPath) & item) And vbDirectory) = vbDirectory Then
　　oPaths.Add item
　　Else
　　If IsModelFile(item) Then list.Add sPath & item
　　End If
　　End If
　　item = Dir
　　Wend
　　Dim p
　　For Each p In oPaths
　　Call GetAllFiles(Combin(sPath, p), list)
　　Next
　　End Function

Answer 2

楼主啊.这个刚好我前几天做过..代码粘过来吧..Dim mypath As String '定义路径mypath = App.path & "\" & "photos "目标文件夹Dim stmp$stmp = Dir(mypath & "\*", vbDirectory) While stmp <> vbNullString Combo1.AddItem stmp stmp = Dir()
Wend