I am looking to have users prompted for a folder location, I then want this to be stored to be used as the location where the values in columns A, B, C, etc.. will be created as a folder structure. I have read numerous forums and exhausted my VBA ability. The code I have below almost works but it only seems to store the name of the folder the user chooses then creates a folder with the user choice and the value in column A appended to it, sub folders create as expected. Thank you for any help!
Code
Sub CreateStructure()
Dim i As Long
Dim fdDrive As FileDialog
Dim strDrive As String
Dim strlevel1 As String
Dim strLevel2 As String
Set fdDrive = Application.FileDialog(msoFileDialogFolderPicker)
With fdDrive
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = Application.DefaultFilePath
If .Show <> -1 Then GoTo NextCode
strDrive = .SelectedItems(1)
End With
NextCode:
GetFolder = strDrive
Set fdDrive = Nothing
With Sheets(1).Range("A1")
strlevel1 = .Offset(0, 0)
MkDir strDrive & strlevel1
For i = 1 To Sheets(1).UsedRange.Rows.Count - 1
If .Offset(i, 0) = "" Then
If .Offset(i, 1) <> "" Then
strLevel2 = .Offset(i, 1)
MkDir strDrive & strlevel1 & "\" & strLevel2
Else
MkDir strDrive & strlevel1 & "\" & strLevel2 & "\" & .Offset(i, 2)
End If
Else
strlevel1 = .Offset(i, 0)
MkDir strDrive & strlevel1
End If
Next i
End With
End Sub