home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / rexxintuition_463.lzh / RexxIntuition / RexxIntui.lzh / scripts / FileIO.rexx < prev    next >
OS/2 REXX Batch file  |  1990-06-27  |  2KB  |  38 lines
  1. /* */
  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 INFO_SUPPRESS. Initial path is ram:, but could */
  8. /* be any existing path or filename (ie df0:mydir/mydir2/myfilename)         */
  9. /* Note that not passing the remaining args sets them to defaults. Usually,  */
  10. /* this means that the settings that were used the last time that the req    */
  11. /* was opened are used again. The exception is the title string which defaults */
  12. /* to none. Since we pass 0 for screen, this opens on WB. */
  13. path=FioWindow(fileio,'No Info Files',128,,'ram:',,,0)
  14. IF path == '' THEN SAY 'Cancelled'
  15. IF path > '' THEN SAY path
  16.  
  17. /* Do the File Requester with extention match ".library", use device names */
  18. /* This one only displays those files that end in ".library". Also notice  */
  19. /* that instead of disk (volume) names, we get device names (ie DF0:).     */
  20. /* Note that since we passed a null string for the path, the fileio comes  */
  21. /* up in the previously selected dir. Note that we set the EXTENTION bit   */
  22. /* of flags as well as pass the extension string. */
  23. path=FioWindow(fileio,'Match .library',4,'.library',,,,0)
  24. IF path == '' THEN SAY 'Cancelled'
  25. IF path > '' THEN SAY path
  26.  
  27. /* Do the File Requester with WB pattern matching of Object Type = Project (2) */
  28. /* There is no tooltypes string or extension match. Note that this only        */
  29. /* displays files that are projects (ie data as opposed to program files) and  */
  30. /* have icons. Flags = 16 to enable WB pattern matching and 32 for using the Object Type */
  31. init = 'df1:'
  32. path=FioWindow(fileio,'WB projects only (with icons)',16+32,,init,2,,0)
  33. IF path == '' THEN SAY 'Cancelled'
  34. IF path > '' THEN SAY path
  35.  
  36. /* Free the FileIO */
  37. path=EndFIO(fileio)
  38.