XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dateisuche in Unterverzeichnissen
Def Searchtreeforfile(3) !imagehlp,SearchTreeForFile
Declare Datei$,Root$,Buffer#,Rückgabe&,Search&

Proc Filesuche

    Dim Buffer#,261
    Clear Buffer#
    Let Root$ = C:
    Let Datei$ = @Input$(Hier den Namen der Datei eingeben:, Suche auf Laufwerk C:,WORDPAD.EXE)
    Usecursor 2
    Let Rückgabe& = @Searchtreeforfile(@Addr(Root$), @Addr(Datei$), Buffer#)
    Print @String$(Buffer#,0)
    Dispose Buffer#
    Usecursor 0
    Case RÜckgabe& = 0 : @Messagebox(File wurde auf Laufwerk  + Root$ +  nicht gefunden!,Pech gehabt!,64)

Endproc

Windowstyle 31
Windowtitle Pfad nach Datei absuchen
Window 0,0 - 640,440
Let Search& = @Createbutton(%Hwnd,Datei suchen, 20,300, 200,30)

While 0=0

    Waitinput

    If @Getfocus(Search&)

        Filesuche

    Endif

Wend