XProfan

 $H Windows.ph
 $H Messages.ph
 $I controls.prf
3 + 4 + 8

proc Add_Dir

    parameters pfad$ , galerie% , p&
    declare i%[14] , nextdir$

    si (galerie% < 0)

        p& = TV_AddItem(tv&,0,2,2,Laufwerk  + pfad$ + \,i#[t%])
        inc galerie%
        inc t%

    endif

    ClearList
    ClearList lb&[galerie%]
    AddFiles pfad$ + \*

    whileloop 0 , %GetCount

        Match$(^~[.+~]$,ListBoxItem$(&loop))

        si %MatchPos >= 0

            AddStrings(lb&[galerie%],$Match)

        endif

    Endwhile

    DeleteString(lb&[galerie%],Sélectionnez String(lb&[galerie%],(-1),[.]))
    DeleteString(lb&[galerie%],Sélectionnez String(lb&[galerie%],(-1),[..]))
    ClearList
    MoveHandleToList(lb&[galerie%])
    clear i%[galerie%]

    tandis que i%[galerie%] < (GetCount(lb&[galerie%]))

        nextdir$ = GetString$(lb&[galerie%],i%[galerie%])
        nextdir$ = Mid $(nextdir$,2,len(nextdir$) - 2)
        TV_AddItem(tv&,p&,0,1,nextdir$,i#[t%])
        inc t%

        si galerie% < 14

            Add_Dir (pfad$ + \ + nextdir$) , (galerie% + 1) , i#[t% - 1].hItem&

        endif

        i%[galerie%] = i%[galerie%] + 1

    Wend

endproc

proc finissons

    FreeDLL shl&
    il#.Destroy()
    Dispose il#
    Dispose i#[]
    end

endproc

declare il# , tv& , tx& , shl& , i#[1999] , lb&[14] , t%
Faible i#[] , TV_Item
shl& = UseDll(SHELL32)
cls SysColor(15)
Titre de la fenêtre s'il te plaît attendre, erstelle Verzeichnisbaum...

whileloop 15

    lb&[&loop - 1] = Créer(ListBox,%hWnd,1,0,0,0,0)

Endwhile

il# = New(ImageList)
il#.AddImage($SysPath + \Shell32.dll,3)
il#.AddImage($SysPath + \Shell32.dll,4)
il#.AddImage($SysPath + \Shell32.dll,8)
tv& = Créer(Treeview,%hWnd,il#.hList&,5,5,200,400)
Add_Dir C: , (-1) , 0 <-- ici den Laufwerksbuchstaben/Anfangspfad eingeben; am Ende darf ne...aucune Backslash stehen
TV_Expand tv& , i#[0].hItem&
SetText %hWnd , str$(t%) +  Einträge im Treeview

whilenot IsKey(27)

    waitinput

Wend

finissons
end