File: f_getfolder.srf
Size: 690
Date: Fri, 31 May 2019 04:34:28 +0200
$PBExportHeader$f_getfolder.srf
global type f_getfolder from function_object
end type

forward prototypes
global function integer f_getfolder (string as_title, ref string as_directory)
end prototypes

global function integer f_getfolder (string as_title, ref string as_directory);// replacement for the system GetFolder function

w_getfolder lw_window

// the title is stored in a Shared String variable
lw_window = Create w_getfolder
lw_window.wf_SetTitle(as_title)

// open the window passing default directory
OpenWithParm(w_getfolder, as_directory)

If Message.StringParm = "" Then
   Return 0
End If
as_directory = Message.StringParm

Return 1

end function