Browse for folders code to select folders

[sujittalukde]

I am using the following code to select the folder path:

Sub x()
    Dim xx
    xx = Application.FileDialog(msoFileDialogFolderPicker).Show
    MsgBox CurDir
End Sub

The code has two pitfalls which I need to fix:
1. If the "Cancel" button is cancelled, then also it is giving the path.
2. I want that user must select a folder ie this code gives output if onlu Drive is selected as C:\. I want that if only drive is selected then it should give a message that only drive is selected and must select o folder.

How can I do so?

 

[Ruddles]

Try:-

Dim CurDir As String
 
CurDir = ""
 
Do Until CurDir <> ""
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Please choose a folder:-"
    .AllowMultiSelect = False
    If .Show = -1 Then CurDir = .SelectedItems(1)
  End With
  If CurDir = "" Then
    MsgBox "You hit 'Cancel' - no folder selected", vbOKOnly + vbExclamation
    Exit Do
  End If
  If Len(CurDir) = 3 Then
    MsgBox "You may not select a root folder: please try again.", vbOKOnly + vbExclamation
    CurDir = ""
  End If
Loop

 

[sujittalukde]

Thank you for the reply.
Could you please insert the msgbox line which which show the Selected path.

 

[sujittalukde]

Yeah, I found it.
Before the Loop I ahve added the line:
If Len(CurDir) > 3 Then
MsgBox CurDir
End If

Is this correct approach?

 

[Ruddles]

When the program drops out of the loop, CurDir is either blank or else it has a valid path in it, so you do If CurDir = "" Then take whatever action you want if it's blank Else you take whatever action you want if it's valid.