Könntest so machen:

    Dim sPfad As String: sPfad = "c:\_tmp\"

    With CreateObject("Scripting.FileSystemObject")
        
        '*** Anzahl Dateien prüfen
        Select Case .GetFolder(sPfad).Files.Count
            Case Is = 0
            '*** Keine Dateien
            
            Case Is = 1
            '*** Genau eine Datei
                '*** jetzt noch auf *.XML prüfen
                
            Case Is > 1
            '*** mindestens eine Datei
            
        End Select
    End With