Ordner / Verzeichnisse zählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim X As String Dim AnzOrd As Long Dim AnzDat As Long Dim Pfad As String Pfad = "C:\Windows\" 'untersuchtes Verzeichnis, ggf anpassen X = Dir(Pfad & "*", vbDirectory) Do While X "" If Not (X = "." Or X = "..") Then If (GetAttr(Pfad & X) And vbDirectory) = vbDirectory Then AnzOrd = AnzOrd + 1 Else AnzDat = AnzDat + 1 End If End If X = Dir Loop MsgBox Pfad & vbLf & "Ordner: " & AnzOrd & vbLf & "Dateien: " & AnzDat End Sub

Hallo Heiko,
teste mal:

Option Explicit

Public Sub Beispiel()
    Const FOLDER_PATH As String = "G:\Eigene Dateien\" 'Anpassen
    Dim astrFolders() As String, astrFiles() As String
    Dim strFile As String
    Dim ialngFolders As Long, ialngFiles As Long
    astrFolders = GetFolders(FOLDER_PATH)
    For ialngFolders = LBound(astrFolders) To UBound(astrFolders)
        strFile = Dir$(astrFolders(ialngFolders) & "*.*")
        Do Until strFile = vbNullString
            Redim Preserve astrFiles(ialngFiles)
            astrFiles(ialngFiles) = astrFolders(ialngFolders) & strFile
            ialngFiles = ialngFiles + 1
            strFile = Dir$
        Loop
    Next
    MsgBox "Ordner: " & CStr(UBound(astrFolders) - 1)
    MsgBox "Dateien: " & CStr(UBound(astrFiles) - 1)
End Sub

Private Function GetFolders(ByVal pvstrPath As String) As String()
    Dim astrFolders() As String
    Dim strFolder As String, strPath As String
    Dim ialngIndex1 As Long, ialngIndex2 As Long
    strPath = pvstrPath
    Do
        strFolder = Dir$(strPath & "*", vbDirectory)
        Do Until strFolder = vbNullString
            If strFolder <> "." And strFolder <> ".." Then
                If GetAttr(strPath & strFolder) And vbDirectory Then
                    Redim Preserve astrFolders(0 To ialngIndex1)
                    astrFolders(ialngIndex1) = strPath & strFolder & "\"
                    ialngIndex1 = ialngIndex1 + 1
                End If
            End If
            strFolder = Dir$
        Loop
        If ialngIndex1 = ialngIndex2 Then Exit Do
        strPath = astrFolders(ialngIndex2)
        ialngIndex2 = ialngIndex2 + 1
    Loop
    GetFolders = astrFolders
End Function

Das Programm zählt alle Ordner und Dateien in allen Ordnern. Die Ordner und Dateinamen stehen dir in den Arrays zur Verfügung.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread