Ermitteln ob ein Ordner leer ist

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

''' <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