Public Class WinApi
        Public Declare Function GetDiskFreeSpace Lib "kernel32" _
            Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _
            ByRef lpSectorsPerCluster As Integer, _
            ByRef lpBytesPerSector As Integer, _
            ByRef lpNumberOfFreeClusters As Integer, _
            ByRef lpTotalNumberOfClusters As Integer) As Integer
    End Class

        Dim SektorenProZuordnungseinheit As Integer
        Dim ZeichenProSektor As Integer
        Dim FreieZuordnungseinheiten As Integer
        Dim ZuordnungseinheitenGesamt As Integer
        WinApi.GetDiskFreeSpace("C:\", SektorenProZuordnungseinheit, _
          ZeichenProSektor, FreieZuordnungseinheiten, ZuordnungseinheitenGesamt)
        Me.txtGrößeHDD1.Text = Format(CLng(((file.Length \ _
        SektorenProZuordnungseinheit) * SektorenProZuordnungseinheit) + _
        SektorenProZuordnungseinheit), "#,##0") & " Bytes"
        Me.txtOrt1.Text = file.Directory.ToString

The World is Yours!