Browse to select a folder

  • Thread starter Thread starter Otto Moehrbach
  • Start date Start date
O

Otto Moehrbach

Excel 2003-2007
An OP posted a problem and I realized that there was one thing I needed to
know before I could help him. What is the code to allow the user to select
a folder? The result must be the full path to that folder. Note: That
path will not be the path to ThisWorkbook. Thanks for your time. Otto
 
See a example in the macro on this page
http://www.rondebruin.nl/csv.htm

'Browse to the folder with CSV files
Set oApp = CreateObject("Shell.Application")
Set oFolder = oApp.BrowseForFolder(0, "Select folder with CSV files", 512)
If Not oFolder Is Nothing Then
foldername = oFolder.Self.Path
If Right(foldername, 1) <> "\" Then
foldername = foldername & "\"
End If
 
Back
Top