home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR13 / FFIND22.ZIP / FFIND.BTM next >
Text File  |  1993-11-28  |  4KB  |  170 lines
  1. @ECHO OFF
  2. setlocal
  3. pushd
  4. set ver=2.2
  5.  
  6. :SETUP
  7.  CLS BLA ON BLA
  8.  iff "%1" == "" then
  9.   goto MISSING
  10.  endiff
  11.  iff "%1" == "?" .OR. "%1" == "/?" .OR. "%1" == "-?" then
  12.   goto FFHELP 
  13.  endiff
  14.  iff "%2" == "" then 
  15.   set DRIVE=67  
  16.   goto startup
  17.  endiff
  18.  iff "%2" == "A" .OR. "%2" == "-A" then 
  19.   set DRIVE=65
  20.   goto startup
  21.  endiff
  22.  iff "%2" == "/A" then 
  23.   goto NONO
  24.  endiff
  25.  iff "%2" == "B" .OR. "%2" == "-B" then 
  26.   set DRIVE=66 
  27.   goto startup
  28.  endiff
  29.  iff "%2" == "/B" then 
  30.   goto NONO 
  31.  endiff
  32.  iff "%2" NE "" .OR. "%2" NE "A" .OR. "%2" NE "-A" .OR. "%2" NE "B" .OR. "%2" NE "-B" then
  33.   goto NONO
  34.  endiff
  35. :END SETUP
  36.  
  37. :STARTUP
  38.   set LASTDRIVE=%@ASCII[%_LASTDISK]
  39.   if "%@EXT[%1]" == "" goto LOOPW
  40. :END STARTUP
  41.  
  42. :LOOP
  43.   gosub SEARCH
  44.   set DRIVE=%@EVAL[%DRIVE+1]
  45.   if %DRIVE GT %LASTDRIVE goto VIEW
  46.   goto LOOP
  47. :END LOOP
  48.  
  49. :SEARCH
  50.   set LETTER=%@CHAR[%DRIVE]
  51.   SCRPUT 1 0 BRI BLA ON BLA FFINDER %VER - File Finder - (C) 1993, Carlos Guerrera 
  52.   SCRPUT 3 0 RED ON BLA Now searching Drive 
  53.   SCRPUT 3 20 CYA ON BLA %LETTER
  54.   if "%@READY[%LETTER:]" NE "1" return
  55.   cdd %LETTER:\
  56.   DIR /K/M/F/S %1* >> %_BOOT:\FILES
  57.   return
  58. :END SEARCH
  59.  
  60. :LOOPW
  61.   gosub SEARCHW
  62.   set DRIVE=%@EVAL[%DRIVE+1]
  63.   if %DRIVE GT %LASTDRIVE goto VIEW
  64.   goto LOOPW
  65. :END LOOPW
  66.  
  67. :SEARCHW
  68.   set LETTER=%@CHAR[%DRIVE]
  69.   SCRPUT 1 0 BRI BLA ON BLA FFINDER %VER - File Finder - (C) 1993, Carlos Guerrera 
  70.   SCRPUT 3 0 RED ON BLA Now searching Drive 
  71.   SCRPUT 3 20 CYA ON BLA %LETTER
  72.   if "%@READY[%LETTER:]" NE "1" return
  73.   cdd %LETTER:\
  74.   DIR /K/M/F/S %1*.* >> %_BOOT:\FILES
  75.   return
  76. :END SEARCHW
  77.  
  78. :VIEW    
  79.    CLS BLA ON BLA
  80.    if "%@FILESIZE[%_BOOT:\FILES,b]"=="0" goto nothing
  81.    set DIRVIEW=%@SELECT[%_BOOT:\FILES,0,45,10,80,─╢    VIEW    ╟─]
  82.    iff "%DIRVIEW"=="" then
  83.      set DIRVIEW=
  84.      CLS WHI ON BLA
  85.      DEL /Q %_BOOT:\FILES >&! nul
  86.      popd
  87.      endlocal
  88.      quit
  89.    endiff  
  90.    iff "%@EXT[%DIRVIEW]"=="ZIP" then
  91.      CLS WHI ON BLA
  92.      goto ZIPVIEW
  93.      else
  94.      LIST %DIRVIEW
  95.      goto VIEW
  96.    endiff
  97. :END VIEW
  98.  
  99. :ZIPVIEW
  100.     CLS BLA ON BLA
  101.     cdd %_BOOT:
  102.     MD\4FITEMP
  103.     PKUNZIP %DIRVIEW %_BOOT:\4FITEMP > NUL
  104.     DIR %_BOOT:\4FITEMP /K/M/F/S >> %_BOOT:\ZIPFILES
  105. :ZIPVIEW1    
  106.     CLS BLA ON BLA
  107.     set FVVIEW=%@SELECT[%_BOOT:\ZIPFILES,0,45,10,80,─╢  VIEW ZIP  ╟─]
  108.     iff "%FVVIEW"=="" then
  109.      set FVVIEW=
  110.      CLS WHI ON BLA
  111.      DEL /Q %_BOOT:\ZIPFILES >&! nul
  112.      DELTREE /Y %_BOOT:\4FITEMP > nul
  113.      GOTO VIEW 
  114.      ELSE
  115.      list %FVVIEW
  116.      GOTO ZIPVIEW1
  117.     endiff  
  118. :END ZIPVIEW AND ZIPVIEW1
  119.  
  120. :MISSING 
  121.   BEEP 
  122. :FFHELP  
  123.   CLS WHI ON BLA
  124.   SCRPUT 0 0 bri yel on bla FFINDER %VER - File Finder - (C) 1993, Carlos Guerrera 
  125.   SCRPUT 2 0 whi on bla You must type what file to look for
  126.   SCRPUT 4 0 whi on bla FFIND [filename.ext] [d]
  127.   SCRPUT 7 0 whi on bla Where
  128.   SCRPUT 9 0 whi on bla [filename.ext] can be: filename.txt or filename.* or file*.*
  129.   SCRPUT 10 0 whi on bla [d] can be any drive letter
  130.   SCRPUT 13 0 whi on bla if you type   
  131.   SCRPUT 15 0 whi on bla FFIND AUTOEXEC.BAT A or FFIND AUTOEXEC.BAT -A
  132.   SCRPUT 16 0 whi on bla FFIND will start the searching for AUTOEXEC.BAT on DRIVE A
  133.   screen 18 0
  134.   popd
  135.   endlocal
  136.   quit
  137. :END MISSING AND FFHELP
  138.  
  139. :NONO
  140.   CLS WHI ON BLA
  141.   BEEP 
  142.   BEEP
  143.   SCRPUT 0 0 bri yel on bla FFINDER %VER - File Finder - (C) 1993, Carlos Guerrera 
  144.   SCRPUT 2 0 bri cya on bla WRONG SWITCH!!
  145.   SCRPUT 4 0 whi on bla You may not use the switch 
  146.   SCRPUT 4 27 bri gre on bla %@UPPER[%2]
  147.   SCRPUT 5 0 whi on bla The valid switches are A or -A for Drive A and B or -B for Drive B
  148.   SCRPUT 5 23 bri gre on bla A
  149.   SCRPUT 5 28 bri gre on bla -A
  150.   SCRPUT 5 47 bri gre on bla B
  151.   SCRPUT 5 52 bri gre on bla -B
  152.   SCREEN 9 0
  153.   popd
  154.   endlocal
  155.   quit
  156. :END NONO
  157.  
  158. :NOTHING
  159. CLS WHI on BLA 
  160. BEEP 
  161. BEEP
  162. SCRPUT 1 0 BRI BLA ON BLA FFINDER %VER - File Finder - (C) 1993, Carlos Guerrera 
  163. SCRPUT 3 0 bri gre on bla No matches found for
  164. SCRPUT 3 21 bri red on bla %1
  165. SCREEN 6 0
  166. popd
  167. endlocal
  168. quit
  169. :END NOTHING
  170.