Notes
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Retourne la quantité d’espace disponible pour un utilisateur sur le lecteur ou le partage réseau spécifié. En lecture seule.
Syntaxe
objet . Freespace
L’objet est toujours un objet Drive.
Remarques
La valeur retournée par la propriété FreeSpace est généralement la même que celle retournée par la propriété AvailableSpace . Elles peuvent présenter des différences dans le cas des systèmes d’ordinateur qui gèrent les quotas.
Le code suivant illustre l’utilisation de la propriété FreeSpace .
Sub ShowFreeSpace(drvPath)
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(drvPath))
s = "Drive " & UCase(drvPath) & " - "
s = s & d.VolumeName & vbCrLf
s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0)
s = s & " Kbytes"
MsgBox s
End Sub
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.