Imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Label1.Text = Speicher_stutzen(GetDirectorySize(TextBox1.Text.Trim) / _
          1024)
 
    End Sub
 
    Function GetDirectorySize(ByVal DirPath As String) As Double
 
        Try
 
            Dim DirSize As Double
            Dim Dir As DirectoryInfo = New DirectoryInfo(DirPath)
 
 
            Dim ChildFile As FileInfo
            For Each ChildFile In Dir.GetFiles()
                DirSize += ChildFile.Length
            Next
 
            Dim SubDir As DirectoryInfo
            For Each SubDir In Dir.GetDirectories()
                DirSize += GetDirectorySize(SubDir.FullName)
            Next
 
            Return DirSize
 
        Catch except As Exception
            MsgBox(except.ToString, MsgBoxStyle.Exclamation, "Fehler")
            Exit Function
        End Try
 
    End Function
 
    Function Speicher_stutzen(ByVal wert As Double) As String
 
        If wert < 1000 Then
            Speicher_stutzen = CInt(wert) & " KB"
            Return Speicher_stutzen
        ElseIf wert >= 1000 And wert < 1000000 Then
            Speicher_stutzen = CInt(wert / 1024) & " MB"
            Return Speicher_stutzen
        Else
            Speicher_stutzen = Format(CDec(wert / (1024 * 1024)), "#####0.0") & _
              " GB"
            Return Speicher_stutzen
        End If
 
    End Function
 
End Class