Anzahl bestimmter Dateien eines Ordners ermitteln Funktion zum Ermitteln aller Dateien oder bestimmer Dateitypen aus einem Ordner
Autor:   VBMichi	Bewertung:     [ Jetzt bewerten ]	Views:  22.915
www.michael-kaupp.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 10 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgende Dunktion ermittelt die Anzahl gefundener Dateien eines Ordners und gibt diese als Long-Wert zurück:

' Anzahl Dateien eines bestimmten Typs ermitteln
Public Function CountFiles(ByVal Pfad As String, _
  Optional ByVal DateiTyp As String = "*.*") As Long
 
  On Error GoTo ErrHandler
 
  Dim Counter As Integer
  Dim TempName As String
 
  ' Damit die Pfadübergabe sowohl als "C:\" wie auch
  ' als "C:" zulässig ist
  If Right$(Pfad, 1) <> "\" Then Pfad = Pfad & "\"
 
  TempName = Dir$(Pfad & DateiTyp)
  While Len(TempName) > 0
    If TempName <> "." And TempName <> ".." Then
      Counter = Counter + 1
    End If
    TempName = Dir$
   Wend
 
ErrHandler:
  ' Gibt die gezählten Dateien zurück
  CountFiles = Counter
End Function

Beispielaufruf für einen bestimmten Dateityp (in diesem Fall Textdateien) aus einem Ordner:

Private Sub Command1_Click()
  ' "C:\Temp" wäre als Pfad ebenfalls zulässig
  MsgBox CountFiles("C:\Temp\", "*.txt")
End Sub

Beispielaufruf für alle Dateien aus einem Ordner:

Private Sub Command1_Click()
  ' "C:\Temp\" wäre als Pfad ebenfalls zulässig
  MsgBox CountFiles("C:\Temp")
End Sub