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

}

lb.movelisttolist(long h,hold){

    long ti

    if hold==true {

        string cs=lb.getcs(h)
        ti=sendmessage(h,LB_GETTOPINDEX,,)

    }

    sendmessage(h,wm_setredraw,,)
    sendmessage(h,$0184,,)//clear
    movelisttohandle(h)

    if hold==true {

        lb.selectstring(h,cs)
        sendmessage (h,LB_SETTOPINDEX,ti,)

    } elseif hold==false {

        sendmessage (h,LB_SETCURSEL,,)
        sendmessage (h,LB_SETTOPINDEX,ti,)

    }

    sendmessage(h,wm_setredraw,true,)