XProfan

Français

Thomas
Zielinski

je bräuchte une Code le nombre de Datein qui sich dans einem certain Dossier befinden trop bestimmen. Mir fällt mais rien en supplément un. Hatt quelqu'un une vorschlag?
Salut Thomas

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

17.03.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

@Thomas Hatte den Code déjà la fois ici geschrieben - ensuite était qui ganze Fil futsch un nu isser wieder là ;) Kompilieren Marque Séparation 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
	17.03.2008 ▲ Vollständiges citation Absatzweise Citation Zeilenweise Citation

Thomas
Zielinski

bien merci! Werds heut l'après-midi trop Hause la fois ausprobieren.
Salut Thomas

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

17.03.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Nico
Madysa

Du musst es naturellement pas absolument dans un Listbox übertragen. Pour AddFiles *.* peux aussi juste un imprimer (%GetCount + 1) folgen, cela funktioniert genauso-

Nico Madysa

17.03.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

dans diesem Zusammenhang nochmal qui kleine addfiles.dll: [...]

17.03.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Zielinski

Pour kurzem anpassen et dem feststellen cela mon Interpreter ne...aucune MoveListToHandle trop connaître trop scheint, klappt qui Code de Horst wunderbar. Allerdings brachte mir qui Code toujours 2 Fichiers plus que eigentlich im Dossier étions. cet hatten beide comme bezeichnung dans qui Listbox: [..]. Hab qui zuvielen simple abgezogen et jetz funzt es Wunderbar.
Salut Thomas

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

17.03.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas

[..] sommes Verzeichnisse et aucun Fichiers. il y a pas toujours deux - Lese fois le Aider trop Addfiles *.* - là steht qui Erklärung

Sorry - MovelistToList(handle&) wäre chez Dir richtig gewesen

et comment Nico richtig bemerkte - qui Listbox muss pas son. était seulement à cause de qui optique dabei ;)

17.03.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

H.Brill

peux on aussi très joli benutzen, à
Taille eines Ordners + Unterordner festzustellen:
Kompilieren Marque Séparation

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

on sollte pas absolument den Windows-Dossier
prendre, ensuite wird es lente. Ansonsten mais
droite brauchbar.
peux on aussi sur KB ajuster, indem on par
1024 teilt et Decimals sur 2 stellt et une Float zurück gibt.

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.

25.01.2015 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

si on vorhat größere Verzeichnisse (peut-être avec Les sous-dossiers) trop scannen, muss on sogar absolument sur Float zurückgreifen et cela déjà chez qui Addition anwenden. Ansonsten gibt es vollkommen falsche Summen, là long pour heutige Festplattengrößen pas plus ausreicht. avec Quad (aktuelle Profanversion) sollte on quelque chose länger auskommen.

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