Hallo!

Ein Frage bzw. Umsetzung habe ich doch noch. 

An dieser Stelle wird kontrolliert, ob überhaupt eine Datei vorhanden ist. Funktioniert auch perfekt. 

'Kontrolle ob eine Datei vorhanden ist
If Dir(ThisFolder & "\*.xml") = "" Then
MsgBox "Ordner leer"
Exit Sub
End If

Ich habe nun aber festgestellt, dass ich auch eine Meldung benötige wenn mehr als eine Datei vorhanden ist. Sprich, in diesem Ordner darf immer nur eine Datei liegen. Leider kommt bei meinen Lösungsversuchen immer der Debugger mit der Meldung "Typen unverträglich"

If Dir(ThisFolder & "\*.xml") > 1 Then
MsgBox "Ordnerinhalt > 1!"
Exit Sub
End If

Ich benötige also die Umsetzung, dass eine Meldung kommt wenn der Ordner leer ist oder mehr als 1 Datei enthält. 

Viele Grüße

Jens