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