XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
File-Finder
Das Programm findet die gesuchte(n) Datei(en) im Systempfad
Dim$ 50

proc dialog

    declare _ende%
    declare _dlg%
    declare Liste%
    declare Maske%
    declare Suchen%
    declare Ende%

    proc suchen

        Declare datei$,pfad$,verz$,zeile$
        Declare i%,j%,anz%
        Let datei$ = gettext$(maske%)
        Let pfad$ = getenv$(PATH)
        let i% = 0
        let verz$ = x

        whilenot equ$(verz$,)

            inc i%
            let verz$ = substr$(pfad$,i%,;)
            list$ i% = upper$(verz$)

        endwhile

        let anz% = i%
        sendmessage(Liste%,$0405,0,0)
        let i% = 1

        while lt(i%,anz%)

            chdir list$(i%)
            clearlist
            addfiles datei$
            let j% = 0
            addstring(Liste%,add$(****> ,list$(i%)))

            whilenot gt(j%,%getcount)

                let zeile$ = listboxitem$(j%)
                let zeile$ = list$(i%);\;zeile$
                addstring(Liste%,zeile$)
                inc j%

            endwhile

            inc i%

        endwhile

    endproc

    let _dlg%=@create(dialog,%Hwnd,File-Finder,248,120,528,384)
    let Liste%=@create(listbox,_dlg%,,8,8,504,280)
    @create(text,_dlg%,Suchmaske:,8,312,104,24)
    let Maske%=@create(edit,_dlg%,*.dll,112,304,136,32)
    let Suchen%=@create(button,_dlg%,&Suchen,256,304,104,32)
    let Ende%=@create(button,_dlg%,&Ende,408,304,104,32)
    let _ende% = 0

    whilenot _ende%

        waitinput

        if @equ(%key,2)

            let _ende% = 1

        elseif @getfocus(Suchen%)

            Suchen

        elseif @getfocus(Ende%)

            let _ende% = 1

        endif

    wend

    @destroywindow(_dlg%)

endproc

dialog
end