VBA-Beispiel 113
mail schreiben
mail schreiben

Anzahl Dateien eines Ordner ermittlen
Diese Funktion ermittelt die Anzahl der Dateien eines Ordners.
Public Sub Aufruf()

  MsgBox AnzDateien("C:\"), , ""

End Sub

Private Function AnzDateien(ByVal strPfad As String) As Long
Dim objFSO As Object
Dim objOrdner As Object

On Error GoTo Fehler

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOrdner = objFSO.GetFolder(strPfad)

'Anzahl Dateien
AnzDateien = objOrdner.Files.Count

Set objFSO = Nothing
Set objOrdner = Nothing
Exit Function

Fehler:
  Set objFSO = Nothing
  Set objOrdner = Nothing
  MsgBox "FehlerNr.: " & Err.Number & _
          vbNewLine & vbNewLine & _
         "Beschreibung: " & Err.Description, _
          vbCritical, "Fehler:"
  End
End Function
Download:   vba113.zip
relevante Links:

top