home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / pmsw2 / stowfile.cmd < prev    next >
OS/2 REXX Batch file  |  1993-04-16  |  636b  |  18 lines
  1. /* REXX */
  2. DrvLtr="";
  3. parse arg DrvLtr
  4. if DrvLtr="" then do;
  5. say 'Mount PM2DOS diskette in a floppy drive.';
  6. '@pause';
  7. TDrv='A:';
  8. DInfo=SysDriveInfo('A:');
  9. parse value DInfo with DrvLtr DFree DTotal DLabel;
  10. if DInfo='' | DLabel\='PM2DOS' then do; TDrv='B:'; DInfo=SysDriveInfo('B:'); end;
  11. if DInfo='' then do; say 'Floppy not mounted'; exit; end;
  12. parse value DInfo with DrvLtr DFree DTotal DLabel;
  13. if DLabel\='PM2DOS' then do; say 'Floppy not labelled PM2DOS'; exit; end;
  14. say 'Floppy:' DrvLtr DFree DTotal DLabel;
  15. end;
  16. 'Replace E:\CSOURCE\PMSW2\*.* ' DrvLtr'\PMSW2 /U'
  17. 'Replace E:\CSOURCE\PMSW2\*.* ' DrvLtr'\PMSW2 /A'
  18.