SpaceFree

Private Declare Function apiDiskFreeSpace Lib _
"kernel32" Alias "GetDiskFreeSpaceA" _
(ByVal lpRootPathName As String, lpSectorsPerCluster _
As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters _
As Long, lpTtoalNumberOfClusters As Long) As Long

Semplice implementazione

Dim TotalClusters As Long
Dim FreeClusters As Long
Dim SectorsPerCluster As Long
Dim BytesPerSector As Long

If apiDiskFreeSpace("C:\", SectorsPerCluster, _
BytesPerSector, FreeClusters, TotalClusters) Then

lngTotalSpace = SectorsPerCluster * BytesPerSector * TotalClusters
lngFreeSpace = SectorsPerCluster * BytesPerSector * FreeClusters
else
msgbox "Errore"
end if Dichiarazione della funzione API da inserire in un
modulo Bas