Espace libre restant sur un disque
Description
Comment puis-je savoir le nombre d'octet libre sur mon disk C: ?
Mettez ce code dans un Module :
Mettez ce code dans un Module :
Source / Exemple :
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
' Puis utilisez ce code :
Dim SecteursParCluster&
Dim BytesParSecteurs&
Dim NbLibreClusters&
Dim TotalNbClusters&
Dim BytesLibre&
Combien& = GetDiskFreeSpace("C:\", SecteursParCluster, BytesParSecteurs, NbLibreClusters, TotalNbClusters)
BytesLibre = NbLibreClusters * SecteursParCluster * BytesParSecteurs
MsgBox(BytesLibre & " octets libres")
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.