Application.FileDialog clean up

[willspill]

Hi,

The code below opens the file dialog and shows all files with a user defined filter. The directory chosen is then used to create a string. However, if no file is chosen and the file picker is cancelled, it returns with an error message. I would like this to not happen and just cancel the script for tidyness' sake. Is this possible?
Thanks
Sub FileOpenDialogBox()
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "Images", "*" & file_type
.AllowMultiSelect = False
.Show

fullpath = .SelectedItems.Item(1)
partialpath = Left(fullpath, Len(fullpath) - 7)

End With

End Sub

[snb]

Please, use code tags !


Sub M_snb()
With Application.FileDialog(3)
.InitialFileName = "*.jpg"
if .Show then
fullpath = .SelectedItems(1)
partialpath = replace(fullpath,dir(fullpath),"")
end if
End With
End Sub

[paulked]

Try:


Sub FileOpenDialogBox()
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "Images", "*" '& file_type
.AllowMultiSelect = False
'.Show
If .Show <> -1 Then Exit Sub
fullpath = .SelectedItems.Item(1)
partialpath = Left(fullpath, Len(fullpath) - 7)
End With
End Sub

[willspill]

Thanks for the replyt, that seemed to open the FileDialog twice and then returned an error further up in the code which seems very strange.

[paulked]

Look at the code again... the .Show is commented out!

[willspill]

Oh yes, sorry for that. It works seamlessly now, Thanks Paul!

[paulked]

:thumb