Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias _
  "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, _
  lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, _
  lpTotalNumberOfFreeBytes As Currency) As Long
 
Dim FreeBytes  As Currency
Dim TotalBytes As Currency
Dim TotalFreeBytes As Currency
 
Private Sub Form_Load()
  GetDiskFreeSpaceEx "c:", FreeBytes, TotalBytes, TotalFreeBytes
 
    Label1.Caption = TotalBytes
    Label2.Caption = TotalFreeBytes
End Sub