home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / PRIVF.ZIP / TEST.CMD < prev   
OS/2 REXX Batch file  |  1993-01-29  |  424b  |  18 lines
  1. /*  */
  2. Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. Call SysLoadFuncs
  4.  
  5. '@echo off'
  6.  
  7. RetCode = SysCreateObject( "PrivF", "Mon dossier", "<WP_DESKTOP>", "PASSWORD=benjamin;LOCKED=YES;CLOSELOCK=YES;COMMONPWD=YES;OBJECTID=<MyFolder>")
  8.  
  9. if RetCode then
  10.    say 'Private Folder created'
  11. else do
  12.    say 'Error creating Private Folder'
  13.    say RetCode
  14.    exit(1)
  15.    end
  16.  
  17. say 'A Folder has been created'
  18.