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

}

myProc(long _in){

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

}<

proc MYPROC

    PARAMETERS _IN&
    var S$=STRING$(_IN&,0)
    PRINT S$
    return 0//return 1 to stop enum

end

external("addfiles.dll","AddDirs","*.*",h&,2)

cls
long myList=createHolyDirList("C:\\dev")

whileloop 0,getCount(myList)-1 {

    print getString$(myList,loop)

}

waitInput
end

createHolyDirList(string path){

    path=path+"\\"
    string oPath=getDir$("@")
    chdir path
    long myList=create("list",0)
    long myDll=usedll("addfiles.dll")
    call(getProcAddress(myDll,"SetProc"),procAddr(createHolyDirList.callbackProc,1))
    call(getProcAddress(myDll,"AddDirs"),"*.*",0,0)
    freedll myDll
    chdir oPath
    return myList

    createHolyDirList.callbackProc(long _in){

        addString(myList,path+string$(_in,0))
        return 0

    }ont color=#0000FF>}