Discussion :

[Mario Rousson]

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

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

merci de m'éclairer

[Mario Rousson]

j'essai ce bout de code et ça fonctionne pas et je comprend pas pk

Code :

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

1
2
3
4
5
For i = 1 To UBound(Tableau)
If Tableau(2, i) > choixa Then
choixa = Tableau(2, i)
End If
Next i

merci de m'aider

[psykodumarteau]

Bonjour,

j'essai ce bout de code et ça fonctionne pas et je comprend pas pk

C'est à dire qu'est ce qui ne marche pas.

En plus par rapport on ton object ce code te permet juste de connaitre la taille maximum et non le fichier dont la taillle est maximum.

Cordialement

[Mario Rousson]

oui je sais que ce code me donne seulement la taille pour ensuite connaitre le nom du fichier correspondant je vais faire tableau(1, i).

Le problème que je rencontre est que dans mon debug.print il y a des éléments qui ont une plus grandes tailles que la valeur de choixa. c'est peut-être un mauvais choix de variable je vais essayer de fouiller un peu de ce coté

[Mario Rousson]

j'obtiens une réponse de 16001510 et pourtant j'ai d'autre dossier qui ont une taille genre 33681510.

[Mario Rousson]

pk mon Ubound(Tableau) est égal à 2, j'ai 3007 dossiers

merci