XProfan

Français

Beschreibung:

SearchTreeForFile durchsucht un Verzeichnis et alle Unterverzeichnisse pour qui angegebenen Dossier.

Deklaration:

DEF SearchTreeForFile(3) !imagehlp,SearchTreeForFile

paramètre:

1.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui cela trop durchsuchende Verzeichnis contient.

2.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui qui trop suchende Dossier contient.

3.paramètre: Bereichsvariable, qui qui gefundene Dossier avec dem Pfad comme String aufnimmt.

Rückgabewert:

Wurde une Dossier trouvé 1, ansonsten 0.

Beispiele:

Kompilieren Marque Séparation

DEF SearchTreeForFile(3) !"imagehlp","SearchTreeForFile"
Déclarer Dossier$,ROOT$,BUFFER#,Rückgabe&,Search&

PROC Filesuche

    DIM BUFFER#,261
    Claire Buffer#
    LET ROOT$="C"
    LET DATEI$=@input$("Hier den Namen qui Dossier eingeben:","Suche sur Laufwerk C:","WORDPAD.EXE")
    USECURSOR 2
    LET Rückgabe&=@SearchTreeForFile(@ADDR(ROOT$),@ADDR(Dossier$),BUFFER#)
    PRINT @STRING$(BUFFER#,0)
    Dispose Buffer#
    USECURSOR 0
    CASE RÜckgabe&=0 : @Messagebox("File wurde sur Laufwerk "+Racine$+" pas trouvé!","Pech gehabt!",64)

ENDPROC

Windowstyle 31
Windowtitle "Pfad pour Dossier absuchen"
Fenêtre 0,0-640,440
LET SEARCH&=@Createbutton(%HWND,"Datei suchen",20,300,200,30)

WHILE 0=0

    Waitinput

    IF @GetFocus(Search&)

        Filesuche

    Endif

WEND