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

Result:

Result not displayed for this example.