Vielen Dank Mase,
so funktioniert es perfekt :-)
'Anzahl Dateien überprüfen
With CreateObject("Scripting.FileSystemObject")
'Keine Datei vorhanden
Select Case .GetFolder(ThisFolder).Files.Count
Case Is = 0
MsgBox "Keine Dateien vorhanden!"
Exit Sub
'Eine Datei vorhanden
Case Is = 1
'Mehr als eine Datei vorhanden
Case Is > 1
MsgBox "Mehr als eine Datei vorhanden!"
Exit Sub
End Select
End With
|