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)

likewise can with SetProc(procAddr(myProc,1)) a XProfan-Function for the Enumeration bring into action, and optional by SetMsg(0) on Messages dispense:

myProc(long _in){

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

}

so can the program z.B. Show effect during sought becomes - important ifs time longer lasts.

~~addfiles.dll~~

14 kB

1,50 €
inkl. Tax.
no Shipping fee

item:

DE-1404

Bezeichnung:

Addfiles.Dll

Version:

1.5

Kurzbeschreibung:

Addfiles with tollen extensions.

Hochgeladen:

02/05/09

~~Download~~

logo.png

16 kB

Hochgeladen:

12/23/15

Downloadcounter:

Download

09/12/06 ▲

- Page 4 -

Stefan
M.
Caillet

The Test yielded the following: (the with the first dll with lever on %HWND
Runs To directory: C

rogrammeAdobeReader 8.0ResourceCMapCMap
only: the way existing only To: C

rogrammeAdobeReader 8.0ResourceCMap
in CMap are following 2 Files include: Identity-H and Identity-V
no further Unterverzeichnis!
has my Festplatte vlt. one echo?
hope The Info helps.
greeting Stefan

Ich habe grosses Glück, weil ich Mitmenschen helfen darf.
Entwicklungsumgebung:
XProfan11 , Win XP Pro 32Bit , Win XP Home ,Win7 HomePremium 64Bit
PC: P4/3GHz , 2GB RAM , 1700GB HD
Laptop: Intel Core 2 Duo /2,2GHz , 4GB RAM , 500GB HD

Stefan
M.
Caillet

Jupp, your latest Version flutscht fully through!! have whom Error successful eliminiert!
Freu me the Update the The Results again on The LB sends.
THANK YOU.
greeting Stefan

super, nevertheless haste I to a neueren better Version.

OK, look you time Please these [...]

Version on.

The Message is now again for ListBox, but anytime with SetMsg(myMsg) änderbar - z.B. on wm_setText.

likewise can with SetProc(procAddr(myProc,1)) a XProfan-Function for the Enumeration bring into action, and optional by SetMsg(0) on Messages dispense:
Compile Mark Separation

myProc(long _in){

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

}<

Stefan
M.
Caillet

Hello iF, Yes works. but whom code with myproc... kappier I do not. is the XPSE? How sounds the in reinem XProfan?
thanks
greeting Stefan

proc MYPROC

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

end

addfiles.dll [...]

Bugfix

The previous Version has 2 Error. contained the Dateiname More as a point, so watts not the last Teilstring as Extension recognized, separate any characters ex the second. The length the Wildcard for Extension watts wrong accounts, if the Placeholder * inside the Extension uses watts, what To incorrect Rückgabewerten lead can.

@Stefan: The MyProc must per Return a 0 or a 1 give back, 1 for discontinue.

02/05/09 ▲

E.T.

would have been there time a wish to this super funzenden dll:
Compile Mark Separation

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

Recursion% = 2 for Return the "kompletten" directories
without Unterverzeichnisse (so How with Recursion% = 0),
means C:\verz\verz1 instead of only verz1

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

09/13/12 ▲

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

Regards!

the sound as bräuchtest You a function createHolyDirList:
Compile Mark Separation

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>}

09/14/12 ▲

E.T.

need because these dll a VB-Runtime ??
After leichtem Crash runs on one system nothing More, lt. Filemon "FAST IO DISALLOWED" , what to of my Kenntnis on missing speedy File-grabbed hinweist.
The Access to The dll working so 1 To 2 time one after another, then:

or yet someone 'ne others idea ??

add.jpg	25 kB

Hochgeladen:	12/22/12

Downloadcounter:
		Download

XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

12/22/12 ▲

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

No, The DLL is mere nativ and need no Runtimes or not anyhow loaded

DLLs. I wealth you have one driver- or Dateisystem-trouble.

12/22/12 ▲

E.T.

Denk so did i. Have already sämtlich File- for r-line between lÃ ¶-rights new tuned, but somehow Have I the Knackpunkt not yet found.

and Have strain gaaarrr none buck, the system new aufzusetzen

XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

12/22/12 ▲