home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / smart21b.zip / MACROS / CHGDIR.REX < prev    next >
OS/2 REXX Batch file  |  1992-11-10  |  602b  |  20 lines
  1. /*                         Change Directory                                     */
  2. /* Rexx Macro to Change the Current Directory                        */
  3. /* Displays a listbox with directories used often                     */
  4. /* allows the user to update the listbox entries                    */
  5. /* arg is the filename to contain the list of directory names    */
  6. if ARG(1,'E') 
  7. then
  8.     ListFilename = ARG(1)
  9. else
  10.     S_PROMPT 'Enter Listbox Filename,' ListFilename
  11. if ListFilename = CANCEL 
  12.     then exit      
  13. S_LISTBOX ListFilename', ChangeDirectory,' SelectedEntry
  14. SAY SelectedEntry
  15. if SelectedEntry = CANCEL 
  16.     then exit
  17. if SelectedEntry = NOSEL
  18.     then exit    
  19. S_CD SelectedEntry
  20.