BCX Console Demonstration Program s73.bas

 DIM FindFile$ 
 DIM Drive2Scan$
 DIM File2Find$
 DIM Result$
 DIM RetCode
 
 IF COMMAND$ = "" THEN
   PRINT "Usage: FindFile FileName"
   PRINT "Win32 freeware by Kevin Diggins (1999)"
   END
 END IF
 
 FindFile$  = SYSDIR$ + "\Dbghelp.dll"
 Drive2Scan$ =  "C:\"
 File2Find$  =  COMMAND$
 
 RetCode = SearchTreeForFile (LIB FindFile$, Drive2Scan$, File2Find$, Result$)
 
 IF RetCode = 0 THEN
   Result$ = "File was not found"
 ELSE
   PRINT Result$
 END IF