Select Multiple Folders

[Becquerel235]

I'd like to open up a window to choose multiple folders and output them in an array of some sort. I've found how to do this for files, but can't see anything relating to multiple folders.

Currently I found this:

Function GetFolderName(Optional OpenAt As String) As String
    Dim lCount As Long
     
    GetFolderName = vbNullString
     
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = OpenAt
        .Show
        For lCount = 1 To .SelectedItems.Count
            GetFolderName = .SelectedItems(lCount)
        Next lCount
    End With
End Function

to pick a folder. And i also wrote a little userform that does something similar, but it's pretty ugly.

Any ideas on how to select multiple folders in one dialog.

Thanks.

 

[pbornemeier]

Try this in conjunction with your function:

Sub GetMultipleFolders()

    Dim sFolder As String
    Dim aFolders() As Variant
    Dim iFolderCount As Integer
    
    iFolderCount = 0
    sFolder = GetFolderName
    Do While sFolder <> ""
        ReDim Preserve aFolders(1 To iFolderCount + 1)
        aFolders(iFolderCount + 1) = sFolder
        iFolderCount = iFolderCount + 1
        sFolder = GetFolderName
    Loop
    
    MsgBox "The aFolders array holds the " & iFolderCount & " directories you selected."
    
End Sub