VBA : connaître la taille des dossiers

6 réponses

Emilie

12/09/2005 à 17:15

Bonjour à tous

Je souhaite en cliquant sur un bouton d'une feuille de calcul imprimer le
nom et la taille des dossiers inclus dans C:\Emilie par exemple.

Quelqu'un connait il une astuce en VBA ?

Par avance merci.

6 réponses

Laurent

12/09/2005 à 17:40

Essaie avec dir et filelen

"Emilie" a écrit dans le message de news:

Bonjour à tous

Je souhaite en cliquant sur un bouton d'une feuille de calcul imprimer le
nom et la taille des dossiers inclus dans C:Emilie par exemple.

Quelqu'un connait il une astuce en VBA ?

Par avance merci.

Jacques93

12/09/2005 à 18:10

Bonjour Emilie,

Avec FSO :

Dim FSO, f

Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.GetFolder("C:Emilie")
MsgBox Format(f.Size, "### ### ### ##0")
Set FSO = Nothing

Bonjour à tous

Je souhaite en cliquant sur un bouton d'une feuille de calcul imprimer le
nom et la taille des dossiers inclus dans C:Emilie par exemple.

Quelqu'un connait il une astuce en VBA ?

Par avance merci.

--
Cordialement,

Jacques.

Jacques93

12/09/2005 à 18:24

Bonjour Emilie,

Répondu un peu vite, plutôt :

Dim fso, f, f1, fc, s

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(fldName)
Set fc = f.SubFolders
For Each f1 In fc
s = s & f1.Name & " : " & Format(f1.Size, "### ### ### ##0")
s = s & vbCrLf
Next
MsgBox s

pour avoir le nom et la taille des sous dossiers

voir ici :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jscolfolders.asp

Bonjour Emilie,

Avec FSO :

Dim FSO, f

Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.GetFolder("C:Emilie")
MsgBox Format(f.Size, "### ### ### ##0")
Set FSO = Nothing

Bonjour à tous

Je souhaite en cliquant sur un bouton d'une feuille de calcul imprimer
le nom et la taille des dossiers inclus dans C:Emilie par exemple.

Quelqu'un connait il une astuce en VBA ?

Par avance merci.

--
Cordialement,

Jacques.

ru-th

12/09/2005 à 18:31

Salut

d'un habitué du forum (Denis)
Sub TailleUnRépertoire()
Dim Fso As Object
Dim File As Object, Répertoire As String
Répertoire = "C:temp"
Set Fso = CreateObject("Scripting.FileSystemObject")
Set File = Fso.GetFolder(Répertoire)
MsgBox "Taille du répertoire " & File & " : " & File.Size & " octects"
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Emilie" a écrit dans le message de news:

Bonjour à tous

Je souhaite en cliquant sur un bouton d'une feuille de calcul imprimer le
nom et la taille des dossiers inclus dans C:Emilie par exemple.

Quelqu'un connait il une astuce en VBA ?

Par avance merci.

RGI

12/09/2005 à 20:16

Bonjour

ceci pourra peut-être t' aider

http://cjoint.com/?jmurLRqZdb

salutations

Gilbert
"Emilie" a écrit dans le message de news:

Bonjour à tous

Je souhaite en cliquant sur un bouton d'une feuille de calcul imprimer le
nom et la taille des dossiers inclus dans C:Emilie par exemple.

Quelqu'un connait il une astuce en VBA ?

Par avance merci.

RGI

12/09/2005 à 20:26

il faut que le fichier soit sur le DD

salutations

Gilbert

"RGI" a écrit dans le message de news:
4325c5f3$0$993$

Bonjour

ceci pourra peut-être t' aider

http://cjoint.com/?jmurLRqZdb

salutations

Gilbert
"Emilie" a écrit dans le message de
news:
Bonjour à tous

Je souhaite en cliquant sur un bouton d'une feuille de calcul imprimer le
nom et la taille des dossiers inclus dans C:Emilie par exemple.

Quelqu'un connait il une astuce en VBA ?

Par avance merci.

VBA : connaître la taille des dossiers

6 réponses

Veuillez sélectionner un problème