gibt es eine Möglichkeit die Anzahl der Dateien in einem Ordner per VBA zu ermitteln? Gibt es darüber hinaus eine Möglichkeit, die Anzahl der Folien in einer PowerPoint-Präsentation per VBA zu ermitteln?
Vielen Dank!
André
Sub Dateien_zählen()
Dim datei As String
Dim pfad As String
Dim i As Long
pfad = "c:\murks\"
datei = Dir(pfad & "*.*")
i = 0
Do While datei <> ""
i = i + 1
datei = Dir
Loop
MsgBox ("Im Verzeichnis " & pfad & " sind " & i & " Dateien.")
End Sub