Viola pour calculer la taille d'un répértoire j'ai utilisé cette sub:
Calculer_LaTaille_du_répértoire.
en utilisant l'événement click d'un bouton dont le nom est "Bttaille" et FolderBrowserDialog dont le nom est Fbd j'arrive à connaitre la taille de n'importe quel répértoire .voila tout est résumé dans le code suivant.
Source / Exemple :
imports system.io
public class form1
Dim Chemin As String
Dim v, TailleTotale As Double
Dim Dossiers, Fichiers, Dossier
Sub Calculer_LaTaille_du_répértoire(ByVal MonChemin As String)
Dim DossiersInfo As DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(MonChemin )
Dossiers = DossiersInfo.GetDirectories
Fichiers = DossiersInfo.GetFiles
'Parcourir Les Fichiers
For Each Fichier As FileInfo In Fichiers
'lire la taille du fichier (fileinfo) et la placer dans la variable v
v += Fichier.Length
Next
'Parcourir les sous-répertoires
For Each sousRepertoire As String In Directory.GetDirectories(monchemin)
'Appel de manière récursive 'Calculer_LaTaille_du_répértoire pour calculer la taille du contenu des sous répertoires.
Calculer_LaTaille_du_répértoire(sousRepertoire)
Next
End Sub
Private Sub Bttaille_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtParcourir.Click
v = 0
TailleTotale = 0
Fbd.ShowDialog()
chemin = Fbd.SelectedPath
Calculer_LaTaille_du_répértoire(Chemin)
TailleTotale = v
msgbox("La taille de Votre répértoire est : " & v.tostring,vbinformation,"Calculer La taille d'un Répértoire")
End Sub
end class
Conclusion :
j'attends vous conclusions.
merçi
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.