Bonjour,
J'ai un tableau à deux dimentions une pour le nom de dossier et une pour sa taille.
je désir renommer le dossier dont la taille est la plus grande.
Voici mon code
merci de m'éclairer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 For Each fold In SFld FlNom = CStr(fold.Name) FolSize = (fold.Size) x = x + 1 ReDim Preserve Tableau(1 To 2, 1 To x) Veriftab = UBound(Tableau) Tableau(1, x) = FlNom Tableau(2, x) = FolSize Debug.Print (Tableau(1, x) & " ---> " & Tableau(2, x)) If Veriftab = SFldComp Then Exit For Next
Partager