vb6 tableaux collections

Bonjour,

je pensais que ce que je cherchais était simple, mais en fouillant un peu, ça n'a pas tellemnt l'air!!! Et en plus c'est urgent :(

Voilà, je souhaite récupérer tous les sous-dossiers d'un répertoire particulier avec pour chacun sa taille en MO. Je pensais le mettre dans une collection ou dans un tableau, de façon à ce que je puisse le trier par taille.

Pb : avec les tableaux, je n'ai pas de clé. Avec les collections, ça a l'air un peu compliqué (ou alors, je n'ai pa trouvé les bons tutoriaux).

Quelqu'un a une idée?

Merci de votre aide

Salut

Cherche dans l'aide les Objets du File System Object. Pour les tableaux, tu auras surement avantage à utiliser un tableaux dynamique d'un type personnalisé. Exemple de type perso:

Code:

---

1 2 3 4

Type Dossier Nom As String Taille As Long End Type

---

Tu peux ensuite créer un tableau de ce type

Code:

---

Dim TabDossiers() As Dossier

---

que tu pourra instruire comme

Code:

---

1 2	TabDossiers(Indice).Nom = "nomDuDossier" TabDossiers.Taille = 1580

---

(ce n'est qu'un exemple, t'avais compris)

Avec le FSO tu peux déclarer une variable FileSystemObject (si je me souviens bien) et interroger un répertoire en particulier... malheureusement, je n'ai pas ça tout frais en mémoire. L'aide de VB fournit des exemples. Je crois que tu pourra te débrouiller. Sinon, fais nous signe.

Bonsoir,
Ce code place les sous répertoires du dossier Mes documents dans une ListBox. C'est tout ce que j'ai pour l'instant.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit Dim fso As Object   Private Sub Form_Load() Dim Racine Racine = "c:\Mes documents\" Set fso = CreateObject("Scripting.FileSystemObject") Recherche_Dossier (Racine) Set fso = Nothing End Sub   Sub Recherche_Dossier(Chemin As String) Dim f, sf Set f = fso.GetFolder(Chemin) For Each sf In f.SubFolders List1.AddItem Chemin & sf.Name & " = " & Format(sf.Size, "### ### ### ### ##0") & " octets" Next End Sub

---

jpleroisse