December 1, 2005 - WinTask - SearchPath

'
' 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