home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / 9511ls02.cmd < prev    next >
OS/2 REXX Batch file  |  1995-11-16  |  2KB  |  32 lines

  1. /*-------------------------------------------*\          /*01*/
  2. |  9511LS02.CMD - Create Group Folder Object  |          /*02*/
  3. \*-------------------------------------------*/          /*03*/
  4. /*-------------------------------------*\                /*04*/
  5. |  Build Group folder for: Accessories  |                /*05*/
  6. \*-------------------------------------*/                /*06*/
  7. say COPIES( " ", 6 ) || "Building Accessories folder."   /*07*/
  8. folder_class    = "WPFolder"                             /*08*/
  9. folder_title    = "Accessories"                          /*09*/
  10. folder_location = "<Program Manager Desktop Equivalent>" /*10*/
  11. folder_option   = "UPDATE"                               /*11*/
  12. folder_setup    =,                                       /*12*/
  13.    "DETAILSFONT="  || GBL.font || ";"             ||,    /*13*/
  14.    "TREEVIEWFONT=" || GBL.font || ";"             ||,    /*14*/
  15.    "ICONFONT="     || GBL.font || ";"             ||,    /*15*/
  16.    "ICONVIEW="     || GBL.icon_view || ",NORMAL;" ||,    /*16*/
  17.    "ICONRESOURCE=72,PMWP;"                        ||,    /*17*/
  18.    "ICONNRESOURCE=35,PMWP;"                       ||,    /*18*/
  19.    "ALWAYSSORT="  || GBL.sort_option  || ";"      ||,    /*19*/
  20.    "OBJECTID=<Accessories Group>;"                       /*20*/
  21. call SysCreateObject folder_class,,                      /*21*/
  22.                      folder_title,,                      /*22*/
  23.                      folder_location,,                   /*23*/
  24.                      folder_setup,,                      /*24*/
  25.                      folder_option                       /*25*/
  26. if RESULT <> 1 then                                      /*26*/
  27.    do                                                    /*27*/
  28.       say "   Unable to create " || folder_title ||,     /*28*/
  29.           "group folder."                                /*29*/
  30.       exit                                               /*30*/
  31.    end                                                   /*31*/
  32.