home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / ez-btm11.exe / WHEREFI.BTM < prev    next >
Encoding:
Text File  |  1994-01-09  |  1.5 KB  |  47 lines
  1. @echo off
  2. :   Written by Robert Chung <chung@qal.berkeley.edu>
  3. :   (Department of Demography, University of California, Berkeley).
  4. :
  5. : Displays a popup list of the files that match a certain search criterion,
  6. : then cd's to that subdirectory. Very useful for choosing among files with
  7. : extensions deemed executable, e.g., .DOC or .ZIP or .WK1.
  8.  
  9. : (*) Files with .COM, .EXE, .BAT, and .BTM extensions will be executed.
  10. : (*) Files with user-defined executables will be handled one after the
  11. :     other (the pop-up menu will pop up after each file) until you press
  12. :     ESC.
  13. : (*) Files with no extension will cause switching to their subdirectory.
  14. :_________________________________________________________________________
  15.  
  16. if "%1" == "" (echo Syntax is: WHEREFI filespecs^quit)
  17.  
  18. set fn=%@unique[%_lastdisk:\]
  19. set srchdrives=C: D:
  20. rem            ^^^^^ modify as needed.
  21.  
  22. (for %drv in (%srchdrives) do (dir /sf %drv\%&)) > %fn
  23.  
  24. iff %@lines[%fn] != -1 then
  25. goto pop_menu
  26.   else
  27.   echo.^echo No %@upper["%1"] files found on disk
  28.   goto end
  29. endiff
  30.  
  31. :pop_menu
  32. set cmdline=%@select[%fn,1,50,24,80, %& files ]
  33.    iff .%cmdline != . then
  34.     %@path[%cmdline]
  35.      : the next 3 lines check for executable extensions
  36.        if "%@ext[%cmdline]"=="" goto end
  37.        if %@index[com exe btm bat,%@ext[%cmdline]] != -1 %cmdline
  38.        if not "%[.%@ext[%cmdline]]" == "" (%cmdline^goto /i pop_menu)
  39.    endiff
  40.  
  41. :end
  42. del /q %fn
  43. unset fn
  44.   echo.
  45.   echo ==`>` %0 terminated
  46. quit
  47.