XProfan

Italia

Beschreibung:

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

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 File enthält.

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

Rückgabewert:

Wurde eine File gefunden 1, ansonsten 0.

Beispiele:

Kompilieren Markieren Separieren

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

PROC Filesuche

    DIM BUFFER#,261
    Clear Buffer#
    LET ROOT$="C:"
    LET DATEI$=@input$("Hier den Namen der File eingeben:","Suche auf Laufwerk 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 wurde auf Laufwerk "+Root$+" nicht gefunden!","Pech gehabt!",64)

Endproc

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