Option Compare Database
Option Explicit

Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _
lpSectorsPerCluster As Long, _
lpBytesPerSector As Long, _
lpNumberOfFreeClusters As Long, _
lpTotalNumberOfClusters As Long) As Long

Function fn1()
Dim lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, _
lpTotalNumberOfClusters As Long
GetDiskFreeSpace "c:\", lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters
Debug.Print CStr(lpSectorsPerCluster * lpBytesPerSector / 1024 / 1024 * lpNumberOfFreeClusters) & "Mb from " & _
CStr(lpSectorsPerCluster * lpBytesPerSector / 1024 / 1024 * lpTotalNumberOfClusters) & "Mb"
End Function