Dim f As FolderItem f = GetOpenFolderItem(FileTypes1.jpeg) // defined in the File Type Set editor rem - we should check for nil! If not f.Exists Then
Beep 'Just for fun MsgBox("The file " + f.NativePath + "doesn't ""exist.""")
Else // document exists
ImageWell1.image=Picture.Open(f)
End If if f isa folderitem then
msgbox(f.name)
end if Exception err As NilObjectException
MsgBox("Invalid pathname!")