$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
File: f_getfolder.srf
Size: 690
Date: Fri, 31 May 2019 04:34:28 +0200
Size: 690
Date: Fri, 31 May 2019 04:34:28 +0200
- function_object f_getfolder(srf)