2
Contributors
2
Replies
24
Views
4 Years
Discussion Span
Last Post by imBaCodes
0

Hi imBaCodes,

This thread already marked as solved without any reply.
You can share the solution here. It will help another members who has same problem like you.

Thank You

2
Dim diaFolder As FileDialog

' Open the file dialog
Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
diaFolder.AllowMultiSelect = False
diaFolder.Show

MsgBox diaFolder.SelectedItems(1)

Set diaFolder = Nothing

i found it for myself .. sorry for not Posting the Solution

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.