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(mask$,ListboxHandle&,Recursion%)
AddDirs(mask$,ListboxHandle&,Recursion%)
AddFilesEx(mask$,ListboxHandle&,Recursion%)// supply Dateiname*Size*Time
SetProc(procAddr(myProc,1))
SetMsg(msgID)

myProc(long _in){

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

}