VBA How to change from Filepicker to Folderpicker using FSO

[vbanewbie68]

Hello

One of the procedures has a Filepicker code to select a specific file. I would like to change it to Folderpicker instead so I have options to choose any files I can select.

With your help on this is much appreciated.

Thank you

Sub FindFile()

Dim fso As Object 'FileSystemObject
Dim fld As Object 'Folder
Dim fl As Object 'File
Dim Mask As String




Set fldStart = fso.GetFolder("J:imports\ThankYou\") ' <-- use your FileDialog code here
Debug.Print fldStart



For Each fld In fldStart.Files
If InStr(1, fld.Name, "supporters-file,*csv", vbTextCompare) > 1 Then
Set fl = fld
Exit For
End If
Next

If fld Is Nothing Then


With Application.FileDialog(msoFileDialogFilePicker)

.Title = "Select a Folder"
'Makes sure the user can select only one file
.AllowMultiSelect = False
'Show the dialog box
.Show


'Store in fullpath variable
Set fl = fso.GetFile(.SelectedItems.Item(1))
End With
End If

Set tempbook = Workbooks.Open(fl.Path, Local:=True)


End Sub

 

[Micron]

AFAIK:
- fso doesn't provide a dialog but if it does, would like to learn of it from others
- Application.GetOpenFileName will show files but not allow you to just pick the folder
- msoFileDialogFolderPicker will not show files in the folder
- msoFileDialogFilePicker will show files but not allow you to just pick the folder

so this

change it to Folderpicker instead so I have options to choose any files

doesn't seem doable. I guess it depends on how one interprets that. You can multi select files if that helps. You can also strip out the file name or path to the file.

 

[vbanewbie68]

AFAIK:
- fso doesn't provide a dialog but if it does, would like to learn of it from others
- Application.GetOpenFileName will show files but not allow you to just pick the folder
- msoFileDialogFolderPicker will not show files in the folder
- msoFileDialogFilePicker will show files but not allow you to just pick the folder

so this

doesn't seem doable. I guess it depends on how one interprets that. You can multi select files if that helps. You can also strip out the file name or path to the file.

Thank you for this. I have managed to fix the issue by adding ChDrive and ChDir to join this procedure to GetFile. It works.

Regards

V

 

[Micron]

It would be useful to others if you mark this as solved then.