SpaceDisk (3)

'API che ritorna informazioni relative allo spazio libero

'ed al totale dell' HD


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

' informazioni sul disco selezionato


Dim lpSectorPerCluster, lpBytePerSector, _
lpNumberOfFreeClusters, lpTotalNumberOfClusters _
tutte As Long

Call GetDiskFreeSpaceEX("c:\", lpSectorPerCluster, _
lpBytePerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters)

Capacita Disco = lpTotalNumberOfClusters * lpSectorPerCluster *
lpBytePerSector

Spazio Libero = lpNumberOfFreeClusters * lpSectorPerCluster *
lpBytePerSector