Dateien und Ordner zählen

Schon die Suche bemüht?

Dateien zählen und vergleichen

(Zerlegen und aufbauen kannste selbst)

Hilfe lesen zu:

DirGetSize()

https://www.autoitscript.com/forum/topic/13…ers-into-array/

Warum so groß aufziehen?
Er will nur die Anzahl an Dateien und Ordner.
Dafür reicht DirGetSize doch vollkommen.

Zitat von P1xelfehler

Oder geht der Befehl die Unterverzeichnisse auch noch durch

Nochmal die Hilfe (diesmal aufmerksamer) zu DirGetSize lesen - besonders die Erklärung zum Flag-Parameter.

Wenn du das nicht willst:

#include <MsgBoxConstants.au3>


Example("C:\Users\laurien\Documents\")


Func Example($sMyFolder)
    Local $hSearch = FileFindFirstFile($sMyFolder & "*.*")


    If $hSearch = -1 Then
        MsgBox($MB_SYSTEMMODAL, "", "Error: No files/directories matched the search pattern.")
        Return False
    EndIf


    Local $sFileName = "", $iDir, $iFile


    While 1
        $sFileName = FileFindNextFile($hSearch)
        If @error Then ExitLoop


		If StringInStr(FileGetAttrib($sMyFolder & $sFileName), "D") Then
			$iDir += 1
		Else
			$iFile += 1
		EndIf


    WEnd
	$AnzahlBeides = $iFile + $iDir
	MsgBox(0,"Anzahl", $iFile & " Dateien und " & $iDir & " Ordner. Also insgesamt " & $AnzahlBeides & " Elemente.")


    FileClose($hSearch)
EndFunc   ;==>Example

Angepasst aus der Hilfe-Datei.

Er sucht prinzipiell Dateien in einem Ordner. Das wird einmal Initialisiert "FileFindFirstFile" und dann die Dateien nach und nach ausgegeben "FileFindNextFile" bis er keine Datei mehr findet "@error".

Auch Ordner sind für Windows erst einmal Dateien. Unterscheiden tun die sich eigentlich nur durch ein File-Attribut: Directory. Directory ist das, was in Foren häufig einfach Folder genannt wird. AutoIt liest über die Funktion "FileGetAttrib" die Attribute einer Datei ein. Besitzt es dabei das Attribut "D" (=Directory) ist es ein Ordner. Das Beispiel oben hat genau zwei Variablen: Eine für Ordner eine für Dateien, und prüft: Ist das nach Attributen ein Ordner? Wenn ja, zähle bei Ordnern um eins hoch, ansonsten bei Dateien.

Statt dem StringInStr(FileGetAttrib(...), "D") könnte man auch einfach das @extended-Makro von FileFindNextFile verwenden.

Oder wie gesagt einfach mit DirGetSize (nur halt mit Flag=3!).

Könnte man. Es macht aber kaum einen Unterschied, außer, dass diese Makros - genau wie binäre Flags - für Neulinge deutlich schwieriger verständlich sind.

Du meinst If StringInStr(FileGetAttrib($sMyFolder & $sFileName), "D") Then ist verständlicher als If @extended Then?

Dein Beispiel von oben - nur mit einer 3 statt einer 1 als Flag bei DirGetSize.

Zitat von AspirinJunkie

Du meinst If StringInStr(FileGetAttrib($sMyFolder & $sFileName), "D") Then ist verständlicher als If @extended Then?

Erfahrungsgemäß: Definitiv. Das eine versteht praktisch jeder, weil es was zu verstehen hat, das andere nicht, weil es immer was anderes bedeuten kann (nämlich bei jeder Funktion), direkt nach der Funktion abgefragt werden muss, und zudem noch nicht mal ersichtlich ist, was es eigentlich tut.

Zitat von P1xelfehler

also Fehler -1.

Fehler -1 bedeutet (Siehe Hilfe), dass der angegebene Pfad nicht existiert.
Wenn es tatsächlich so sein sollte, dass der Pfad konstant bleibt und nur eine Veränderung des Flags von 1 auf 3 diesen Fehler verursacht müssten wir versuchen ein Beispiel zu finden welches dieses Verhalten bei anderen auch reproduziert.
Denn dann wäre es ein Bugmeldung an die AutoIt-Devs wert.

Da ich es aber selbst nicht reproduzieren kann bitte ich dich die Ausgabe folgenden Skriptes zu posten:

$aDirInfo = DirGetSize (@MyDocumentsDir, 1)
ConsoleWrite(StringFormat("%5d Dateien + %5d Ordner = %5d gesamt\n", $aDirInfo[1], $aDirInfo[2], $aDirInfo[1] + $aDirInfo[2]))


$aDirInfo = DirGetSize (@MyDocumentsDir, 3)
ConsoleWrite(StringFormat("%5d Dateien + %5d Ordner = %5d gesamt\n", $aDirInfo[1], $aDirInfo[2], $aDirInfo[1] + $aDirInfo[2]))