XProfan

English

Description:

SearchTreeForFile search a directory and any Unterverzeichnisse to the angegebenen File.

Deklaration:

DEF SearchTreeForFile(3) !imagehlp,SearchTreeForFile

Parameter:

1.Parameter: address one Strings or Memory-Variable with a String, the the To durchsuchende directory contains.

2.Parameter: address one Strings or Memory-Variable with a String, the The To seeking File contains.

3.Parameter: Memory-Variable, The The found File with the way as String aufnimmt.

Return Value:

watts a File found 1, otherwise 0.

Examples:

Compile Mark Separation

DEF SearchTreeForFile(3) !"imagehlp","SearchTreeForFile"
Declare File$,ROOT$,BUFFER#,Rückgabe&,Search&

PROC Filesuche

    DIM BUFFER#,261
    Clear Buffer#
    LET ROOT$="C:"
    LET FILE$=@input$("Hier whom names the File prompt:","Suche on drive C:","WORDPAD.EXE")
    USECURSOR 2
    LET Rückgabe&=@SearchTreeForFile(@ADDR(ROOT$),@ADDR(File$),BUFFER#)
    PRINT @STRING$(BUFFER#,0)
    Dispose Buffer#
    USECURSOR 0
    CASE RÜckgabe&=0 : @Messagebox("File watts on drive "+Root$+" not found!","Tough had!",64)

Endproc

Windowstyle 31
Windowtitle "Pfad to File 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