![]() |
BCX Console Demonstration Program S73.bas |
$LIBRARY
<imagehlp.lib>' link with imagehlp.lib
#INCLUDE <imagehlp.h>DIM
Drive2Scan$DIM
File2Find$DIM
Result$DIM
rcIF
COMMAND$
=
""
THEN
"Usage: S73 FileName"
"Win32 freeware by Kevin Diggins (1999)"
END
END
IF
Drive2Scan$=
"C:\"
File2Find$=
COMMAND$
rc=
SearchTreeForFile(
Drive2Scan$, File2Find$, Result$)
IF
rc=
0
THEN
Result$=
"File was not found"
END
IF