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)

while 1

    waitinput

wend

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

myProc(long _in){

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

}