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)

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 U_cIniFile to hoIniFile
   Set psFilename of hoIniFile to sWorkspaceWSFile 
   Get ReadString of hoIniFile 'Workspace' sKey ' ' to sValue
   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

//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