fileToOpen = Application.GetOpenFilename( _
"All Graphic Files (*.jpg; *.gif; *.bmp; *.png),*.jpg;*.gif;*.bmp;*.png")

The fields are seperated with semicolons.

"Rhino V" wrote:

Joel,
What if you want ALL graphic files to show, e.g., .jpg, .gif, .bmp, .png?
How would the code be written?
Thanx.

"Joel" wrote:


fileToOpen = Application _
.GetOpenFilename("All Files (*.jpg),*.jpg")

"gwbdirect" wrote:

Hi Joel,
Thanks for the code.
I want to chenge to photo extensions so how do i write it
.GetOpenFilename (*.jpeg), *.jpeg")
This doesn't work so can you write it properly.
Thanks again


"Joel" wrote:

Use the GetOpenFileName which Displays the standard Open dialog box and gets
a file name from the user without actually opening any files. Change .txt to
the picture extension you are using such as .jpg


fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen < False Then
MsgBox "Open " & fileToOpen
End If


"gwbdirect" wrote:

Want to crteate a macro that goes to exploerer and allows me to choose any
photo by clicking on it. Not a specific photo but different ones each time I
run the macro.
Thanks