vba code to store selected folder name in a string

[kishorvimal]

Hi,

Could someone provide me vba code to store selected folder name in a string.

If I select any folder then name of folder should be coming in any cell or stored in a string on button click event..


thanks in advance

 

[Richard Schollar]

Hi

Perhaps:

Dim strFolder As String
With Application.FileDialog(msoFileDialogFolderPicker)
  .AllowMultiSelect = False
  If .Show = -1 Then _
    strFolder = .SelectedItems(1)
End With

'use folder name:
MsgBox "Folder selected is " & strFolder

'Place in a cell:
Sheets("MySheet").Range("A1").Value = strFolder

 

[kishorvimal]

This works great!

Thanks

 

[GunnerG]

That is a very nice piece of code. Especially when you are trying to do something. thank you