File Open Dialog does not allow selection of all file types (1 Viewer)

[CBenfer]

Hey there. I recently upgraded a DB from 2003 to 2013 and ran into the following problem.

I have a button that opens a file dialog box and allows the user to upload a file to a predetermined location (and store the address as a hyperlink). I borrowed this code from someone else on here and modified it slightly.

In any case, the button still works, but now when it opens it doesn't have an option for "All files" under file types. So I can upload MS Office files, text files, etc., but not PDF files which are by far the most common types my users upload. Here's my code and a screenshot is attached - any ideas?



Private Sub Command35_Click()
Dim dd As Integer
Dim fileDump As FileDialog
Set fileDump = Application.FileDialog(msoFileDialogOpen)
dd = fileDump.Show
Dim Yourroute As String
Dim yourrouteName
Yourroute = fileDump.SelectedItems(1)
yourrouteName = StrReverse(Yourroute)
yourrouteName = StrReverse(Mid(yourrouteName, 1, InStr(yourrouteName, "\") - 1))
FileCopy Yourroute, "\\us170fp00\data\WBO_Tool_Room\Drawings\" & yourrouteName
Me.Drawing_Link = yourrouteName & " # \\us170fp00\data\WBO_Tool_Room\Drawings\" & yourrouteName

End Sub

 

[pr2-eugin]

I use the above code.

I get All Files option on mine..

 

[CBenfer]

It looks like you're on 2010 - have you had any reason to try it on 2013?

This worked fine for me until we upgraded.

 

[pr2-eugin]

Unfortunately not. I only have 2010 on my PC. I cannot test this code for you. I am sure someone will be along to give you some advice. Good Luck.