Ordnergröße ermitteln

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Public Class FolderSize
    Private Shared FolderSize As Long = 0

    ''' <summary>
    ''' Diese Funktion ermittelt die Größe eines Ordners und gibt diese in Byte zurück
    ''' </summary>
    ''' <param name="Root">Der Ordner dessen Größe ausgelesen werden soll</param>
    Public Shared Function GetFolderSize(ByVal Root As String) As Long
        FolderSize = 0
        SeekFiles(Root)
        Return FolderSize
    End Function

    Private Shared Sub SeekFiles(ByVal Root As String)
        Dim Files() As String = System.IO.Directory.GetFiles(Root)
        Dim Folders() As String = System.IO.Directory.GetDirectories(Root)

        For i As Integer = 0 To Files.Length - 1
            FolderSize += FileLen(Files(i))
        Next

        For i As Integer = 0 To Folders.Length - 1
            SeekFiles(Folders(i))
        Next
    End Sub
End Class