Category:How To

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