Discussion :

[Empty_body]

Bonjour,
j'aimerais faire un petit prog pour récupérer la taille d'un dossier. Ce dossier contient lui-même des autres dossiers et fichiers...
Je suis preneur pour toutes les idées...
Merci.

[SpaceFrog]

Tu peux le faire par la somme des fichiers

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function GetSize(SourceDir As String) As Long 
Dim fs, f 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.GetFolder(SourceDir) 
GetSize = f.Size / 1048576 
End Function

puis tu t'en sert comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LabelDir1.Caption = "Taille : " + GetSize(Chemin)

' Chemin est la String qui contient le nom du répertoire...
reste à descendre ensuite dans l'arbo ...

sinon direct:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim fs, f, s 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.GetFolder(Chemin) 
s = f.Size 
Label3.Caption = Format(s / 1000000, "##,##0.000") + " Mb." + vbCr + Format(s / 1048576, "##,##0.000") + " Mo." 
 
set f = nothing
set fs = nothing

[Empty_body]

C'est sympa, merci... Par hazard, existe-t-il un moyen en vb de récupérer le chemin d'accès du répertoire du profile de l'utilisateur connecté???

[leroissejp]

Bonjour,
Voici une autre méthode.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Command1_Click()
    Dim fso, f, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder("C:\Windows")
    s = UCase(f.Name) & " utilise " & f.Size & " Octets"
    MsgBox s
 End Sub

Tu peux aussi placer un TextBox sur ta Form et remplacer la ligne Set f = fso.GetFolder("C:\Windows") par Set f = fso.GetFolder(Text1.Text)
et tu tappes le chemin de ton répertoire dans le TextBox, sans les parenthèses( C:\Windows\Sous répertoire\sous sous répertoire te donnera le nombres d'octets de sous sous répertoire)

[SpaceFrog]

f.Size une autre methode ?
lis bien mon post

[leroissejp]

Re
Oui,SpaceFrog tu as raison, mais bon j'ai quand même posté, la seule différence est ici
Label3.Caption = Format(s / 1000000, "##,##0.000") + " Mb." + vbCr + Format(s / 1048576, "##,##0.000") + " Mo." , par rapport au mien,
s = UCase(f.Name) & " utilise " & f.Size & " Octets"
MsgBox s

jpleroisse