Folder Picker

[bkjohn2016]

I'm trying to loop through files in a folder and I'd like to allow the user to select the folder that they would like to loop through. What am I doing wrong here:

Sub GetSummaryData()

Dim wb As Workbook, ws As Worksheet
Set fso = CreateObject("Scripting.FileSystemObject")
SelectFolder = Application.FileDialog(msoFileDialogFolderPicker).Show
Set fldr = fso.GetFolder("SelectFolder")

 

[JoeMo]

I'm not sure about your syntax. You may simply need to remove the quote marks around SelectFolder in the GetFolder argument. Alternatively, I think this will get you where you want to go:

Sub GetSummaryData()
Dim wb As Workbook, ws As Worksheet
Set fso = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    Set Fldr = fso.GetFolder(.SelectedItems(1))
End With

 

[bkjohn2016]

That did the trick. Thanks Joe!