Macro to Create New Folder using User Defiend Pathway

[lwebbie]

I have a code that creates a new folder to a specific pathway but the issue is now we need to be able to allow the user to define the pathway (location changes weekly and by user). I can't figure out how to get it to allow me to let the user pick where to create the folder.


Current Code:
Sub FolderCreation
FolderName = Format(Date, "yyyy-mm-dd")
MkDir "W:\WAC\Regional\WA_OnTap\Team\XH Customer Letters\Sent Letters" & FolderName
End Sub

Thanks!

 

[JoeMo]

Sub FolderCreation()
Dim fPath As String
FolderName = Format(Date, "yyyy-mm-dd")
fPath = InputBox("Enter the path to the new folder")
If fPath = "" Then Exit Sub
MkDir fPath & FolderName
End Sub

 

[Fluff]

Another option

Sub MakeNewFolder()
   Dim Fldr As String
   Dim FolderName As String
   FolderName = format(Date, "yyyy-mm-dd")
   With Application.FileDialog(4)
      .AllowMultiSelect = False
      If .Show <> -1 Then Exit Sub
      Fldr = .SelectedItems(1)
   End With
   MkDir Fldr & "\" & FolderName
End Sub

This lets the user browse for the folder they want the new folder placed in

 

[lwebbie]

Awesome this is exactly what I needed!

 

[Fluff]

Glad we could help & thanks for the feedback