Browse

(from "describe" in c:\aplw\parkenet\shbrowse.w3), these fns are used in qkPath & qkFile and those fns include this documentation.

*

WBrowseFolder

© use Windows Shell functions to browse for folder (or file, printer, URL -- see flags)

© Syntax © folder ← [parent_window] WBrowseFolder default_path [dialog_caption] [flags] © default dialog caption is "Choose Folder" © flags can be summed-integer, integer vector, one constant name, or multiple nested constant names © default flag is 1 = 'BIF_RETURNONLYFSDIRS' © parent_window can be window name or hwnd © default is parent form/mdiform of Œwself, or system hwnd if no Œwself

© Example

f ← WBrowseFolder 'c:\windows' 'Pick a Folder' (1 64 512)

*

WGetFileName © combined, extended GetOpenFileName and GetSaveFileName to get user-selected file name

© Syntax

(path file ext filterindex flags custfilter) ← [flags] WGetFileName method [path file ext title filter filterindex noplaces customfilter]

© Examples

© --- © all defaults

f ← WGetFileName 'Open' f ← WGetFileName 'Save'

© --- © rarg options: select file to open; don't show "places" buttons (in Windows XP dialog) © larg options: hide read-only checkbox; don't change current directory; file must not be readonly

f ← 4 8 32768 WGetFileName 'Open' 'c:\windows' '' '' 'Select image' 'GIF (*.gif)|*.gif|JPEG (*.jpg)|*.jpg|All (*.*)|*.*' 1 1 ''

© --- © rarg options: select file to open; initially show JPEG files; don't show "places" buttons (in Windows XP dialog) © larg options: hide read-only checkbox; don't change current directory; allow multiple selections

f ← 4 8 512 WGetFileName 'Open' 'c:\windows' '' '' 'Select image' 'GIF (*.gif)|*.gif|JPEG (*.jpg)|*.jpg|All (*.*)|*.*' 2 1 ''

© --- © rarg options: Select file name to save; default file extension; show "places" buttons (in Windows XP dialog) © larg options: hide read-only checkbox; don't change current directory; path must exist

f ← 4 8 2048 WGetFileName 'Save' 'c:\windowa' 'index.htm' 'htm' 'Save as' 'HTML (*.htm, *.html)|*.htm;*.html|Text (*.txt)|*.txt|All (*.*)|*.*' 1 0 ''

* 2003, William R. Parke