Nabend zusammen,
ich Suche momentan einen VBA Code, welcher mir die Anzahl an Dateien in einem Ordner zählen kann. Bei meiner Suche bin ich auch folgenden Code gestoßen:
Dim FSO As Object
Dim objOrdner As Object
Dim Anzahldateien As Long
Dim Dateiabfrage As String
Dateiabfrage = Pfad
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objOrdner = FSO.GetFolder(Dateiabfrage)
Anzahldateien = objOrdner.Files.Count
Der Code funktioniert auch soweit, nur leider zählt mir dieser irgendwie immer eins zu viel.
Es sind z.B. 4 Dateien im Ordner und der Code wirft mir aber die Zahl 5 aus.
Sieht jemand vielleicht den Fehler ?
|