cs_yvesyves
Messages postés561Date d'inscriptionsamedi 10 janvier 2004StatutMembreDernière intervention11 octobre 2010
-
22 avril 2005 à 17:08
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 2006
-
22 avril 2005 à 21:04
Slt,
J'aimerai avoir le code pour afficher la taille d'un dossier avec les sous dossiers compris. (le total de tous les fichiers du dossier)
Merci
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 22 avril 2005 à 21:04
Une autre méthode, très "bourrin", j'ai honte de la présenter mais ... pas le temps .... :
Function TailleDossier(Dossier)
Dim fso, d, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
On Error GoTo trt_Erreur
If Len(Dossier) < 4 Then
Set d = fso.GetDrive(Dossier)
s = d.DriveLetter & " utilise " & Format(d.TotalSize - d.AvailableSpace, "### ### ### ### ##0") & " octets."
Else
Set f = fso.GetFolder(Dossier)
s = UCase(f.Name) & " utilise " & Format(f.Size, "### ### ### ### ##0") & " octets."
End If
TailleDossier = s