TAILLE D'UN RÉPERTOIRE
Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
-
3 juin 2003 à 17:15
plico223 Messages postés 3 Date d'inscription jeudi 6 mars 2003 Statut Membre Dernière intervention 4 août 2003 - 4 août 2003 à 10:19
plico223 Messages postés 3 Date d'inscription jeudi 6 mars 2003 Statut Membre Dernière intervention 4 août 2003 - 4 août 2003 à 10:19
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7318-taille-d-un-repertoire
https://codes-sources.commentcamarche.net/source/7318-taille-d-un-repertoire
4 août 2003 à 10:19
result = GetAttr(Nom_Repertoire & "" & Nom_Fichier) And vbDirectory
If result = vbDirectory
4 août 2003 à 10:13
à la place de :
If GetAttr(Nom_Repertoire & "" & Nom_Fichier) = vbDirectory
Il faut
result = GetAttr(Nom_Repertoire & "" & Nom_Fichier) And vbDirectory
If result <> 0 ...
1 août 2003 à 17:21
17 juil. 2003 à 16:33
En effet c'est court, mais pour accéder à FileSystemObject, il faut absolument que le PC possède IE4 minimum. Tu me diras que c'est pour la plupart des PC le cas.... ;-)
J'avais posté une source ici à l'époque (16/05/2002) que traitait 2 méthodes (récursivité et FSO) pour connaître la taille d'un répertoire: http://www.vbfrance.com/article.aspx?ID=4246
Bonne prog'
5 juin 2003 à 08:14
Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & " uses " & f.size & " bytes."
ShowFolderSize = s
End Function
3 juin 2003 à 17:15
Autrement tout a l'air de bien marcher, rien à dire...
Saros