December 1, 2005 - WinTask - SearchTreeForFile

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