Espace libre restant sur un disque

Soyez le premier à donner votre avis sur cette source.

Vue 12 891 fois - Téléchargée 664 fois

Description

Comment puis-je savoir le nombre d'octet libre sur mon disk C: ?

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")

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de pat

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.