|
'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 Innanzitutto devi usare l'API getdiskfreespaceex che funziona anche per dischi superiori a 2 GB. Il modo per utilizzarla te lo descrivo di seguito. |