Hi, in this code below I have got a popup that has the user select a folder which is defined through the rest of the code as 'sFolder'. In one of the lines, you can see sFoldersubfolder = ?????. I would like to know what you would put to define each of the sub folders in 'sFolder'.
Thanks in advance
Code:
Dim sFolder As StringDim sFoldersubfolder As String
Application.ScreenUpdating = True
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder..."
.Show
If .SelectedItems.Count > 0 Then
sFolder = .SelectedItems(1) & "\"
sFoldersubfolder = ???????
Else
Exit Sub
End If
End With
Thanks in advance