home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / rexxmenu / vinfoall.cmd < prev    next >
Encoding:
Text File  |  1992-11-25  |  845 b   |  27 lines
  1. /* VInfoAll.cmd: Demonstrate RexxMenu. choose to view from among all *.inf
  2.  *               files on this disk.
  3.  */
  4.  
  5. /* ADD RexxMenu function support from the RexxMenu.dll */
  6. if 1 = RxFuncQuery('RexxMenu') then
  7.    CALL RxFuncAdd 'RexxMenu', 'RexxMenu', 'RexxMenu'
  8.  
  9. /* Create temporary file of all *.INF file on this disk */
  10. '@echo Building list of *.inf files...'
  11. '@dir \*.inf /S /B > AllInfLs.tmp'
  12.  
  13. /* Let user choose .inf file to view */
  14. InfName = ''
  15. do until InfName = ''
  16.    InfName = RexxMenu('AllInfLs.tmp','/Pre',SUBSTR(DIRECTORY(),1,2),,
  17.                       '/Prompt','Select INF file to view','/Esc',,
  18.                       '/Init',InfName)
  19.    if \(InfName = '') then do
  20.       'view.exe' INSERT(INSERT('"',InfName),'"')
  21.    end  /* Do */
  22. end /* do */
  23.  
  24. /* May remove our temporary list */
  25. '@del AllInfLs.tmp'
  26.  
  27.