New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Function GetFolderPath() As String Dim oShell As Object Set oShell = CreateObject("Shell.Application"). _ BrowseForFolder(0, "Please select folder", 0, "c:\\") If Not oShell Is Nothing Then GetFolderPath = oShell.Items.Item.Path Else GetFolderPath = vbNullString End If Set oShell = Nothing End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.