XProfan

Italia

Thomas
Zielinski

Ich bräuchte einen Code um die Anzahl von Datein die sich in einem bestimmten Ordner befinden zu bestimmen. Mir fällt aber nichts dazu ein. Hatt jemand einen vorschlag?
Saluto Thomas

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

17.03.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

@Thomas Hatte den Code schon mal hier geschrieben - dann war der ganze Thread futsch un nu isser wieder da ;) Kompilieren Markieren Separieren 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 Zitat Absatzweise Citazione Zeilenweise Citazione

Thomas
Zielinski

Gut danke! Werds heut Nachmittag zu Hause mal ausprobieren.
Saluto Thomas

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

17.03.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Nico
Madysa

Du musst es naturalmente nicht unbedingt in un Listbox übertragen. Nach AddFiles *.* kannst auch gleich ein print (%GetCount + 1) folgen, das funktioniert genauso-

Nico Madysa

17.03.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

In diesem Zusammenhang nochmal die kleine addfiles.dll: [...]

17.03.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Thomas
Zielinski

Nach kurzem anpassen und dem feststellen das mein Interpreter kein MoveListToHandle zu kennen zu scheint, klappt der Code von Horst wunderbar. Allerdings brachte mir der Code immer 2 File mehr als eigentlich im Ordner waren. Diese hatten beide als bezeichnung in der Listbox: [..]. Hab die zuvielen einfach abgezogen und jetz funzt es Wunderbar.
Saluto Thomas

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

17.03.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Thomas

[..] sind Verzeichnisse und keine File. Es sind nicht immer zwei - Lese mal die Aiuto zu Addfiles *.* - Da steht die Erklärung

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

und wie Nico richtig bemerkte - die Listbox muss nicht sein. War nur wegen der Optik dabei ;)

17.03.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

H.Brill

Kann man auch sehr schön benutzen, um die
Dimensione eines Ordners + Unterordner festzustellen:
Kompilieren Markieren Separieren

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

Man sollte nicht unbedingt den Windows-Ordner
nehmen, dann wird es langsam. Ansonsten aber
recht brauchbar.
Kann man auch auf KB umstellen, indem man durch
1024 teilt und Decimals auf 2 stellt und einen Float zurück gibt.

Benutze XPROFAN X3 + FREEPROFAN

25.01.2015 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Wenn man vorhat größere Verzeichnisse (evtl mit Unterordnern) zu scannen, muss man sogar unbedingt auf Float zurückgreifen und das schon bei der Addition anwenden. Ansonsten gibt es vollkommen falsche Summen, da long per heutige Festplattengrößen nicht mehr ausreicht. Mit Quad (aktuelle Profanversion) sollte man etwas länger auskommen.

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