home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / dset.zip / driveset.cmd next >
OS/2 REXX Batch file  |  1994-12-04  |  415b  |  16 lines
  1. /* DriveSET.CMD */
  2. call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  3. call SysLoadFuncs                   /* Register REXXUTIL.DLL */
  4.  
  5. say 'Set which drive  (X:) ?'
  6. pull drive_letter_colon
  7.  
  8. call SysSetObjectdata drive_letter_colon, 'DEFAULTVIEW=DEFAULT;'
  9. if result <> 1 then
  10.    do
  11.       say 'Unable to set '       ||,
  12.           drive_letter_colon     ||,
  13.           ' to DEFAULT view'
  14.    end
  15.  
  16.