Select Folder - Complicated Task

[Delta Star]

I have a userform which allows me to create individual reports on mass.

This is accomplished via a userform which contains two combo boxes. The first is populated when opened (with counties) and once a selection is made the second box (towns) is populated.

The user then selects as many towns as they want and click a button which allows the user to decide which folder to place the reports in.

I need to ammend this so that once a folder is chose, a new folder is created automatically and named after the county that was selected from the first combobox and the reports saved to this newly created folder.

To complicate matters further, if the folder already exists then the reports should be added to it.

The code I'm using to select folder is shown below:-

Option Explicit
Function PickFolder(strStartDir As Variant) As String
    Dim SA As Object, F As Object
    Set SA = CreateObject("Shell.application")
    Set F = SA.BrowseForFolder(0, "Choose a folder", 0, strStartDir)
    If (Not F Is Nothing) Then
        PickFolder = F.items.Item.Path
    End If
    Set F = Nothing
    Set SA = Nothing
End Function

 

[Richard Schollar]

Hi

You can use the FileDialog to choose a folder (it's very easy to use) and can use Dir to determine if a folder exists, and if it doesn't MkDir to create one:

Dim strFolder As String, strNewFolder As String

With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .InitialFileName = "C:\"  'starting directory
    If .Show = -1 Then
        strFolder = .SelectedItems(1)
        strNewFolder = "County_Name_From_First_Combobox"
        If Len(Dir(strFolder & "\" & strNewFolder, vbDirectory)) = 0 Then _
            MkDir strFolder & "\" & strNewFolder 'folder doesn't yet exist! So create it
    Else
        'folder not selected
        Exit Sub
    End If
End With


'code to save all files to strFolder &"\" & strNewFolder

 

[Delta Star]

I'm struggling to get the folder created. The combobox on the userform is called cmbCounty. I tried replacing "County_Name_From_First_Combobox" with "cmbCounty" but it just shows cmbCounty.

What am I doing wrong?