XProfan

English

Thomas
Zielinski

I bräuchte a code the number of Files which in a given Ordner find To to determine. me falls but nothing to a. having someone a suggestion?
Greeting Thomas

XProfan X4; Win10 x64
Der Kuchen ist eine lüge!

03/17/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

@Thomas having whom code already time here written - then was the whole Thread mci .. un nu isser again there ;) Compile Mark Separation DECLARE pfad$ DECLARE listbox1& pfad$=C:TEMP CHDIR pfad$ CLS CLEARLIST listbox1&=CREATE(LISTBOX,%HWnd,,50,20,300,350) ADDFILES . MoveListToHandle(listbox1&) print GetCount(listbox1&) WAITINPUT
	03/17/08 ▲ Vollständiges Quote Absatzweise Quote Zeilenweise Quote

Thomas
Zielinski

well thanks! Werds today afternoon To dwell time try.
Greeting Thomas

XProfan X4; Win10 x64
Der Kuchen ist eine lüge!

03/17/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Nico
Madysa

You must it naturally not absolutely in a Listbox transfer. After AddFiles *.* can also same one print (%GetCount + 1) follow, the functions just as-

Nico Madysa

03/17/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

in this Context again The small addfiles.dll: [...]

03/17/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas
Zielinski

After kurzem adjust and the determine the my Interpreter no MoveListToHandle To kennen To shining, works the Code Horst wonderful. though brought me the code always 2 Files More as really in the Ordner were. These had both as bezeichnung in the Listbox: [..]. Have The zuvielen simply abgezogen and jetz working it wonderful.
Greeting Thomas

XProfan X4; Win10 x64
Der Kuchen ist eine lüge!

03/17/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas

[..] are directories and no Files. there are not always two - read times the Help Addfiles *.* - there standing The Statement

Sorry - MovelistToList(handle&) would with you correctly. been

and How Nico correctly. noticed - The Listbox must not his. was only because of the Optik thereby ;)

03/17/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

Can too very beautiful using, around the
Size of a Folder + Unterordner to ascertain:
Compile Mark Separation

Cls
Print GetFolderSize("C:\Temp\")
Waitkey

Proc GetFolderSize

    Parameters Pfad$
    Declare size&
    ClearList
    AddFiles *Pfad$ + "*.*"

    WhileLoop 0, %GetCount

        size& = size& + FileSize(GetString$(0, &LOOP))

    EndWhile

    Return size&

ENDPROC

one ought to not absolutely whom windows-Ordner
take, then becomes it slow. otherwise but
right useable.
Can on KB adjust, because one through
1024 divides and Decimals on 2 position and a Float back gives.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

01/25/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

If one intends more directories (evtl with Subfolders) To scannen, must one even absolutely on Float zurückgreifen and the already with the addition utilize. otherwise there completely incorrect sums, there long for Today Festplattengrößen not any more ausreicht. with Quad (actually Profanversion) ought to something longer get along.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...