XProfan

Declare Listbox%

Proc ListFolder

    Parameters LBox%,Dir$,Filter$,Level%
    Declare String$,File$,c%,g%
    Level 0 = Nur den Hauptordner durchsuchen (Unterordner werden gelistet)
    Level 1 = Nur den Hauptordner durchsuchen (Unterordner werden nicht gelistet)
    Level 2 = Alles durchsuchen, samt Unterordner
    Beispiel: Print @ListFolder(Listbox%,"C:Programme","*.exe|*.bat",2)

    Proc Einlesen

        Parameters Dir$
        Declare i%,j%,len%
        ChDir Dir$
        File$ = @FindFirst$("*")
        i% = 0

        While File$ <> ""

            len% = @Len(File$)

            If (File$ <> "[.]") And (File$ <> "[..]")

                If (@InStr("[",File$) = 1) And (@InStr("]",File$) = len%)

                    String$ = @Translate$(File$,"[","")
                    String$ = @Translate$(String$,"]","")
                    Inc i%
                    @AddString(LBox%,Dir$+""+String$)

                Else

                    j% = 1

                    While @SubStr$(Filter$,j%,"|") <> ""

                        If @InStr(@SubStr$(Filter$,j%,"|"),File$) = (len% - @Len(@SubStr$(Filter$,j%,"|"))+1)

                            Inc i%
                            @AddString(LBox%,Dir$+""+File$)
                            break

                        EndIf

                        Inc j%

                    WEnd

                EndIf

            EndIf

            File$ = @FindNext$()

        WEnd

        g% = g%+i%

    EndProc

    Filter$ = @Translate$(Filter$,"*","")
    Einlesen Dir$

    If Level%

        While c% < g%

            String$ = @GetString$(LBox%,c%)

            If @TestBit(@GetFAttr(String$),4) Ordner finden

                @DeleteString(LBox%,c%)
                Dec g%
                Case Level% = 2: Einlesen String$ Ordner einlesen

            Else

                Inc c%

            EndIf

        WEnd

    EndIf

    Return g%

EndProc

Cls
UseFont "MS Sans Serif",15,6,0,0,0
SetDialogFont 1
Listbox% = @Create("ListBox",%HWnd,"",0,50,@Width(%HWnd)-5,@Height(%HWnd)-55)
Print @Str$(@ListFolder(Listbox%,"C:Programme","*.exe|*.bat",2))+" Dateien gelistet"
WaitInput
End