'
' SearchPath
'
' Author: Joe Strazzere
'
' This script will search a specified Path to find a given file, and
' return the full path and file name.
'
dim ptr as unsigned
ptr=allocate(255)
Path$="c:;d:"
File$="autoexec.bat"
ret=External("kernel32","SearchPathA",Path$,File$,0,255,ptr,0)
var$=peekstring$(ptr)
If ret = 0 then
Msgbox(File$+" was not found in the path "+Path$)
else
Msgbox(File$+" can be found at "+var$)
endif
