Imports System.Runtime.InteropServices
Imports System.Text

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)
 
MsgBox("Zuordnungseinheitengröße = " & CStr(SektorenProZuordnungseinheit * _
  ZeichenProSektor) )