' SearchTreeForFile
'
' Author: Joe Strazzere
'
'SearchTreeForFile Lib "imagehlp"
' (ByVal RootPath As String,
' ByVal InputPathName As String,
' ByVal OutputPathBuffer As String) As Long
dim outbuffer as unsigned
dim root as unsigned
dim file as unsigned
outbuffer=allocate(260)
root=allocate(32)
file=allocate(32)
pokestring(outbuffer," ",1)
pokestring(root,"C:",1)
pokestring(file,"autoexec.bat",1)
ret=External("imagehlp","SearchTreeForFile",root,file,outbuffer)
msgbox(str$(ret))
