EnableExplicit

Define Buffer$ = Space(256)
Define Result

Result = SearchTreeForFile_("C:\","Datei.txt",@Buffer$);Durchsucht auch in Unterverzeichnissen
If Result=0
  MessageRequester("","Es wurde keine Datei mit diesem Namen gefunden.",0)
Else
  MessageRequester("","Erste gefundene Datei: "+Buffer$,0)
EndIf