XProfan

declare h&
cls
h&=createlistbox(%hwnd,»,10,10,400,200)
chdir "C:\lol"
external("addfiles.dll","AddFiles","*.*",h&,1)
external("addfiles.dll","AddDirs","*.*",h&,1)
external("addfiles.dll","AddFilesEx","*.*",h&,1)

tandis que 1

    waitinput

Wend

AddFiles(masque$,ListboxHandle&,Recursion%)
AddDirs(masque$,ListboxHandle&,Recursion%)
AddFilesEx(masque$,ListboxHandle&,Recursion%)// liefert Dateiname*Taille*Zeit
SetProc(procAddr(myProc,1))
SetMsg(msgID)

myProc(long _in){

    string s=string$(_in,0)
    imprimer s

}