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]