home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
os2
/
pmsw2.zip
/
CSOURCE
/
PMSW2
/
STOWFILE.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-04-16
|
636b
|
18 lines
/* REXX */
DrvLtr="";
parse arg DrvLtr
if DrvLtr="" then do;
say 'Mount PM2DOS diskette in a floppy drive.';
'@pause';
TDrv='A:';
DInfo=SysDriveInfo('A:');
parse value DInfo with DrvLtr DFree DTotal DLabel;
if DInfo='' | DLabel\='PM2DOS' then do; TDrv='B:'; DInfo=SysDriveInfo('B:'); end;
if DInfo='' then do; say 'Floppy not mounted'; exit; end;
parse value DInfo with DrvLtr DFree DTotal DLabel;
if DLabel\='PM2DOS' then do; say 'Floppy not labelled PM2DOS'; exit; end;
say 'Floppy:' DrvLtr DFree DTotal DLabel;
end;
'Replace E:\CSOURCE\PMSW2\*.* ' DrvLtr'\PMSW2 /U'
'Replace E:\CSOURCE\PMSW2\*.* ' DrvLtr'\PMSW2 /A'