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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.