Contents

Dim f As FolderItem
f = GetOpenFolderItem(FileTypes1.jpeg) // defined in the File Type Set editor
If not f.Exists Then
  Beep
  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!")

Version data entries

4 entries across 4 versions & 1 rubygems

Version	Path
rouge-3.5.1	lib/rouge/demos/xojo
rouge-3.5.0	lib/rouge/demos/xojo
rouge-3.4.1	lib/rouge/demos/xojo
rouge-3.4.0	lib/rouge/demos/xojo