Poids des dossiers
la seine
Messages postés
1
Date d'inscription
dimanche 5 décembre 2004
Statut
Membre
Dernière intervention
9 octobre 2006
-
9 oct. 2006 à 12:15
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 9 oct. 2006 à 12:38
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 9 oct. 2006 à 12:38
1 réponse
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
9 oct. 2006 à 12:38
9 oct. 2006 à 12:38
Bonjour à tous....
Avec fso:
Dans le cas des fichiers, renvoie la taille, exprimée en octets, du fichier spécifié.
Dans le cas des dossiers, renvoie la taille, exprimée en octets, de tous les fichiers
et sous-dossiers contenus dans le dossier.
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(" d:\test ")
s = UCase(f.Name) & " occupe " & f.size & " octets."
Set fso = Nothing
MsgBox s
jean-marc
Avec fso:
Dans le cas des fichiers, renvoie la taille, exprimée en octets, du fichier spécifié.
Dans le cas des dossiers, renvoie la taille, exprimée en octets, de tous les fichiers
et sous-dossiers contenus dans le dossier.
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(" d:\test ")
s = UCase(f.Name) & " occupe " & f.size & " octets."
Set fso = Nothing
MsgBox s
jean-marc