Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB4, VB5, VB6 | 02.01.08 |
Anzahl bestimmter Dateien eines Ordners ermitteln Funktion zum Ermitteln aller Dateien oder bestimmer Dateitypen aus einem Ordner | ||
Autor: VBMichi | Bewertung: | Views: 22.005 |
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