VB - Ermitteln ob ein Ordner leer ist

''' <summary>
''' Diese Funktion prüft ob der angegebene Ordner leer ist
''' </summary>
''' <param name="Folder">Der zu prüfende Ordner</param>
Public Function IsFolderEmpty(ByVal Folder As String) As Boolean
    Try
        If Directory.GetDirectories(Folder).Length = 0 Then
            If Directory.GetFiles(Folder).Length = 0 Then
                Return True
            End If
        End If
    Catch ex As Exception
        Return False
    End Try
End Function