Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.
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.