home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / util / libs / reqtools / rexxreqtools / examples / multiselect.rexx < prev    next >
OS/2 REXX Batch file  |  1993-07-06  |  622b  |  26 lines
  1. /* MultiSelect.rexx
  2.  * Demonstrates multiselect
  3.  *
  4.  * NOTE: `,' is a continuation character for statements that must be entered
  5.  *       on several source lines!!
  6.  */
  7.  
  8. NL = '0a'x
  9.  
  10. call addlib("rexxreqtools.library", 0, -30, 0)
  11.  
  12. call rtezrequest("This is an example of a" || NL ||,
  13.                  "multiselect filerequester.", "Show me")
  14.  
  15. call rtfilerequest(, , "Pick some files", , "rtfi_flags=freqf_multiselect",files)
  16.  
  17. if files == 1 then
  18.   do
  19.     say "You selected" files.count "files"
  20.     do i=1 to files.count
  21.       say "  file" i || ":" files.i
  22.     end
  23.   end
  24. else
  25.   call rtezrequest("You picked no files.", " No ")
  26.