FileDialog Can't Navigate

[eaaxelrad]

Here is a snippet of code I use for the FileDialog

Dim fDialog As Office.FileDialog
Dim varFile As Variant
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

The problem I am having is I can't navigate around inside the dialog box. I can't click on "My Documents", I can't move up a folder, nothing. Is there a setting that will allow for navigating?

Thanks.

 

[Ruddles]

This code just defines the dialog box. Can you show us the rest of the code - where you actually open the dialog box?

 

[eaaxelrad]

OK. Here is the entire code:
Dim fDialog As Office.FileDialog
Dim varFile As Variant
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False
.Title = "Please select <file text="">"</file>
.Filters.Clear
.Filters.Add "Text", "*.txt"
.Filters.Add "Comma Separated", "*.csv"
.Filters.Add "Excel 97-2003", "*.xls"
.Filters.Add "Excel 2010", "*.xlsx"
.Filters.Add "All Files", "*.*"

If .Show = True Then
For Each varFile In .SelectedItems
MsgBox varFile
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With

 

[Ruddles]

Your code works perfectly here without any changes. I can navigate around, select "My Documents", select a single file, and the filename is reported in the message box. When I click Cancel, it tells me I clicked Cancel.

So it's not the code which is at fault, I would say.

 

[eaaxelrad]

Yeah. It started working for me this morning. I don't know what was going wrong with my machine here but I am a little embarrassed. Thank you so much for responding quickly.

 

[Ruddles]

Check the date. Did it start working at midday?

Excel has a sense of humour!