home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxfnset.zip / RXQFS.CMD < prev    next >
OS/2 REXX Batch file  |  1995-11-05  |  725b  |  28 lines
  1. /* */
  2. Say "Sample Rexx program for demonstrating RXQUERYFILESYSTEM function"
  3. Say "RxFnSet by Leshek Fiedorowicz"
  4. Say
  5.  
  6. /* Sample program for demonstrating 'RXQUERYFILESYSTEM' function */
  7.  
  8. Arg Device
  9.     if Device = '' then
  10.       device = "C:"
  11.  
  12.     Call RxFuncDrop 'RXQUERYFILESYSTEM'
  13.  
  14.     Call RxFuncAdd 'RXQUERYFILESYSTEM', 'RXFN32', 'RXQUERYFILESYSTEM'
  15.  
  16.     Call RxQueryFileSystem Device
  17.  
  18.     if (Length(Result) = 0) then do
  19.             say 'ERROR - Check your parameter ('Device').'
  20.             say '        D: is expected, where D - device (disk) letter followed by colon.'
  21.          end
  22.     else
  23.        say 'File System for 'Device' is 'Result'.'
  24.  
  25.  
  26.     Call RxFuncDrop 'RXQUERYFILESYSTEM'
  27. Exit
  28.