Add Workspace Parameter

How to add a parameter in your .ws file and pass it in to your program. In this example I need to know where the document folder is found for each user, usually the same location for all users. This then allows the Docs folder to be found anywhere on a network. I use a global variable to store the location. If not defined in the .ws file default it from the home location.

I just put this code near the bottom of the source (.src)

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function MyValueWS String sKey Returns String    String sValue    String sWorkspaceWSFile    Handle hoWorkspace hoIniFile      Move (phoWorkSpace(ghoApplication)) to hoWorkspace    Get psWorkspaceWSFile of hoWorkspace to sWorkspaceWSFile    Get Create (RefClass(cIniFile)) to hoIniFile    If (hoIniFile) Begin        Set psFilename of hoIniFile to sWorkspaceWSFile        Get ReadString of hoIniFile 'Workspace' sKey ' ' to sValue        Send Destroy of hoIniFile    End    Function_Return sValue End_Function   Get MyValueWS "DocsFolder" to gsDocsFolder If gsDocsFolder eq "" Begin    Get psHome of (phoWorkspace(oApplication(Self))) to gsDocsFolder    Move (gsDocsFolder-"Docs") to gsDocsFolder End

Add a new DocsFolder option to the .ws file like so:

?

1 2 3 4 5 6 7 8 9 10

//The .ws file may look like this: [Workspace] Home=..\ BitmapPath=.\Bitmaps DataPath=c:\Members\CEPU HelpPath=.\Help ProgramPath=.\Programs FileList=c:\Members\CEPU\Filelist.cfg Description=MASS - Membership Administration Software Solution - CEPU DocsFolder=c:\Test\Docs