Help with FileDialog

[AccessHunter]

Hi,

Below is the VB code I am using to let users select the folder they want to save a file.My problem is once user selects a folder, none of the files in that folder is displayed. I understand it is because I am using FileDialogFolderPicker.
My question is, when user selects a folder, is there a way to show all existing files under that folder, and also let them save the new file in the same folder.
I want users to be able to see all files under the folder they selected so that they can be sure it is the same folder where they saved the file last time. Please help. Thanks.

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFolderPicker)

Dim vrtSelectedItem As Variant

With fd
.TITLE = "Select a folder"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
InputFile = .SelectedItems(1)
End If
End With

Set fd = Nothing

[lotus18]

What version of vb you were using? Why don't you try FileListBox just a suggestion : )


Rey Sean

[debasisdas]

you need to check for the filter to check the extension of the files.