如何取得一个文件夹中的所有子文件夹的名称

Question

如题，例如：一个D:\A 文件夹中有10个子文件夹，文件夹名称分别是01~10。如何在Combo中添加这10个文件夹的名称。
请大哥大姐们帮忙，最好能用代码来解释

Answer 1

Private Sub Command1_Click()
    Dim MyPath
    MyPath = "d:\a\"
    MyName = Dir(MyPath, vbDirectory)
    Do While MyName <> ""
        If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
            Combo1.AddItem MyName
        End If
        MyName = Dir
    Loop
End Sub

Answer 2

引用Microsoft Scripting Runtime的SubFolders 属性
返回包含所有文件夹的一个 Folders 集合，这些文件夹包含在某个特定的文件夹中，包括设置了隐藏和系统文件属性的那些文件夹。
下面的代码举例说明了 SubFolders 属性的用法：
Sub ShowFolderList(folderspec)
    Dim fs, f, f1, s, sf
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set sf = f.SubFolders
    For Each f1 in sf
        s = s & f1.name 
        s = s &  vbCrLf
    Next
    MsgBox s
End Sub

Answer 3

Option Explicit'
' This shows how to populate a TreeView control with a directory
' and sub-directory listing.  It uses a recursive FindDirs call.
' I've modified this to use the FindFirstFile API call rather than
' VB's built in Dir$ call.  Dir$ will return the first Directory
' it finds, but subsequent Dir$ calls return both files and directories,
' so you must use FileAttr to test for directories - very slow, because
' you must do 2 API calls (Dir$ and FileAttr) while one API call can
' do both for you.Const MAX_PATH = 260
Const FILE_ATTRIBUTE_DIRECTORY = &H10Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End TypePrivate Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End TypePrivate Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As LongPrivate Type DirInfo
    DirName     As String
End TypeSub FindDirs(D$, T As TreeView)
    Dim nx As Node, C$
    C$ = CurDir$
    
    ChDir D$
    
    If Len(Dir$("*.*", vbDirectory)) Then
        On Local Error Resume Next
        ChDir ".."
        ChDir ".."
        Set nx = T.Nodes.Add(CurDir$, 4, C$, LastPath$(C$))
        If Err Then
            Set nx = T.Nodes.Add(, , C$, C$)
        End If
        ChDir C$
        ChDir D$
        'Set nx = T.Nodes.Add(C$, 4, , D$)
    Else
        Set nx = T.Nodes.Add(C$, 4, , D$)
    End If
    'T.Nodes(T.Nodes.Count).EnsureVisible
    
    DoEvents
    
    Dim N As Integer, Srch$, i As Integer, NewD$
    
    Srch$ = "*.*"
    ReDim Dees(1 To 10) As DirInfo
    Call LoadDirs(Dees(), N, Srch$)
    If N = 0 Then
        ChDir ".."
        Exit Sub
    End If    
    For i = 1 To N
        NewD$ = RTrim$(Dees(i).DirName)
        Call FindDirs(NewD$, T)
    Next
    
    ChDir ".."
End SubFunction LastPath$(P$)
    Dim i
    For i = Len(P$) To 1 Step -1
        If Mid$(P$, i, 1) = "\" Then
            LastPath$ = Mid$(P$, i + 1)
            Exit For
        End If
    Next
End FunctionPrivate Sub LoadDirs(D() As DirInfo, N As Integer, Srch$)
    Dim a$, Max As Integer, i As Integer, k As Integer, W32 As WIN32_FIND_DATA, fHandle As Long, lResult As Long
    Max = UBound(D)
    N = 0
    
    fHandle = FindFirstFile(Srch$, W32)    If fHandle Then
        Do
            a$ = Left$(W32.cFileName, InStr(W32.cFileName, Chr$(0)) - 1)
            If a$ <> "." And a$ <> ".." And ((W32.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) > 0) Then
                N = N + 1
                If Max < N Then
                    Max = Max + 10
                    ReDim Preserve D(1 To Max) As DirInfo
                End If
                D(N).DirName = a$
            End If
            DoEvents
            lResult = FindNextFile(fHandle, W32)
        Loop While lResult
        lResult = FindClose(fHandle)
    End If    For i = 1 To N - 1
        For k = i + 1 To N
            If D(i).DirName > D(k).DirName Then
                a$ = D(k).DirName
                D(k).DirName = D(i).DirName
                D(i).DirName = a$
            End If
        Next
    Next
End SubPrivate Sub Command1_Click()
    Static done
    If done Then Exit Sub
    done = True
    ChDrive "c:\"
    ChDir "c:\"
'    Dim nx As Node
'    Set nx = TV.Nodes.Add(, , CurDir$, CurDir$)
    Call FindDirs("c:\", TV)
    MsgBox "Done!"
End SubPrivate Sub Form_Unload(Cancel As Integer)
    End
End Sub

Answer 4

我只试了lihonggen0兄的方法,蛮好的.CSO兄的方法我没有试,不过CSO提出了2中不同的方法.
所以我一人给10分.