XProfan

Español

Descripción:

SearchTreeForFile durchsucht un directorio y todos Unterverzeichnisse después de el angegebenen Expediente.

Deklaration:

DEF SearchTreeForFile(3) !imagehlp,SearchTreeForFile

Parámetro:

1.Parámetro: Adresse uno Cuerdas oder Bereichsvariable con un String, de los a durchsuchende Directorio enthält.

2.Parámetro: Adresse uno Cuerdas oder Bereichsvariable con un String, el el a suchende Expediente enthält.

3.Parámetro: Bereichsvariable, el el gefundene Expediente con el Pfad como String aufnimmt.

Rückgabewert:

Wurde una Expediente gefunden 1, ansonsten 0.

Beispiele:

Kompilieren Marca Separación

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

PROC Filesuche

    DIM BUFFER#,261
    Claro Buffer#
    LET ROOT$="C:"
    LET DATEI$=@input$("Hier el Namen el Expediente eingeben:","Suche en Laufwerk C:","WORDPAD.EXE")
    USECURSOR 2
    LET Rückgabe&=@SearchTreeForFile(@ADDR(ROOT$),@ADDR(Expediente$),BUFFER#)
    PRINT @STRING$(BUFFER#,0)
    Disponer Buffer#
    USECURSOR 0
    CASE RÜckgabe&=0 : @Messagebox("File wurde en Laufwerk "+Root$+" No se ha encontrado!","Pech gehabt!",64)

ENDPROC

Windowstyle 31
Windowtitle "Pfad después de Expediente absuchen"
Ventana 0,0-640,440
LET SEARCH&=@Createbutton(%HWND,"Datei suchen",20,300,200,30)

WHILE 0=0

    Waitinput

    IF @GetFocus(Search&)

        Filesuche

    Endif

WEND