How can I write a command to browse the file folder in Module?

[moepusu]

Hi

How can I write a command to browse the file folder in Module?

Thank you in advance

[ADezii]

'Must 1st set a Reference to the Microsoft Office XX.X Object Library
Dim dlgOpen As FileDialog
Dim vrtSelectedItem As Variant
 
Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
 
With dlgOpen
  .ButtonName = "Open Folder"
  .Title = "Browse Folder Utility"
  .InitialView = msoFileDialogViewLargeIcons
    If .Show = -1 Then
      MsgBox "Selected Folder's Path: " & .SelectedItems(1)
    End If
End With
 
'Set the object variable to Nothing.
Set dlgOpen = Nothing