中科新闻网超级小郎中全文免费版:谢谢，又来个问题，vb6中怎么得到一个文件夹下面的所有文件夹的名称
来源：百度文库 编辑：中科新闻网 时间：2024/05/05 13:43:52
'fvFolderPath表示所给文件夹
Public Sub GetSubDirs(ByRef fvFolderPath As String)
Dim oFso As New FileSystemObject
Dim oParentFolder As Folder
Dim oFolders As Folders
Dim oFolder As Folder
Dim vFolderName As String
Dim oCollection As New VBA.Collection
Set oParentFolder = oFso.GetFolder(fvFolderPath)
‘得到所给文件夹的子文件夹集合
Set oFolders = oParentFolder.SubFolders
’循环，得到每个子文件夹名称，并写入ocollection集合中
For Each oFolder In oFolders
vFolderName = oFolder.Name
Call oCollection.Add(vFolderName)
Debug.Print vFolderName
Next
End Sub
用函数循环的到