XProfan

Deutsch

Beschreibung:

SearchTreeForFile durchsucht ein Verzeichnis und alle Unterverzeichnisse nach der angegebenen Datei.

Deklaration:

DEF SearchTreeForFile(3) !imagehlp,SearchTreeForFile

Parameter:

1.Parameter: Adresse eines Strings oder Bereichsvariable mit einem String, der das zu durchsuchende Verzeichnis enthält.

2.Parameter: Adresse eines Strings oder Bereichsvariable mit einem String, der die zu suchende Datei enthält.

3.Parameter: Bereichsvariable, die die gefundene Datei mit dem Pfad als String aufnimmt.

Rückgabewert:

Wurde eine Datei gefunden 1, ansonsten 0.

Beispiele:

Kompilieren Markieren Separieren

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