home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / rexxintuition_463.lzh / RexxIntuition / RexxIntui.lzh / scripts / Multiple.rexx < prev    next >
OS/2 REXX Batch file  |  1990-06-27  |  880b  |  34 lines
  1. /* Example of MULTIPLE_FILES. Note that you can do this with SPECIAL_REQ, too */
  2.  
  3. /* Get a FileIO structure */
  4. fileio=GetFIO()
  5. IF fileio == '' | fileio == 0 THEN SAY 'FileIO allocation error'
  6.  
  7. /* Do the File Requester with MULTIPLE_FILES and INFO_SUPPRESS */
  8. path=FioWindow(fileio,'Make numerous selections',128+64,,,,,0)
  9. IF path == '' THEN SAY 'Cancelled'
  10.  
  11. IF path > '' THEN DO
  12. /* Now let's go through the list, and print out the entire path for each selection */
  13.  
  14. /* First, we call FIRSTENTRY once to get the first selection. */
  15. fname = FirstEntry(fileio)
  16.  
  17. DO WHILE fname > ''
  18.  
  19.  /* Make the full path (ie append the filename to the dir) */
  20.  /* If we were using CustomReq(), we would skip this */
  21. fname = GetPath(fileio,fname)
  22.  
  23. /* Print out this selection */
  24. SAY fname
  25.  
  26. /* Get the next selection */
  27. fname = NextEntry(fileio)
  28.  
  29.  END
  30.  END
  31.  
  32. /* Free the FileIO */
  33. path=EndFIO(fileio)
  34.