Liste de fichiers triés

Salut à tous,

Voici mon problème: lors de l'Initialize d'un UserForm, je souhaite afficher dans une ListBox la liste des fichiers contenus dans un certain répertoire, triés par ordre décroissant de date de création (du plus récent au plus ancien).
Pour cela je passe d'abord par un tableau dynamique appelé ListeFichiers() qui contient des objets File. Seulement lorsque je veux initialiser ce tableau et y mettre un premier objet File, l'erreur "Utilisation incorrecte de la propriété" apparaît et ListeFichiers(0) est surligné, sans que je comprenne pourquoi... Y a-t-il un problème dans le For Each? Dans le type File?

Voici le début de mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub UserForm_Initialize() Dim fso As Scripting.FileSystemObject Dim disque As Scripting.Folder Dim fichier As Scripting.File Dim ListeFichiers() As Scripting.File Set fso = New Scripting.FileSystemObject Set disque = fso.GetFolder("E:\") 'Tri des fichiers .out par ordre décroissant de date de création For Each fichier In disque.Files If UBound(ListeFichiers()) = -1 Then ReDim ListeFichiers(0) ListeFichiers(0) = fichier End If ...

---

Merci d'avance de votre aide!

Bonjour,

Est-ce que ton userform est uniquement fait pour lister les fichiers puis cliquer sur un ou plusieurs pour les ouvrir ?

Si c'est la cas je te conseille vivement d'utiliser les "FileDialog" c'est beaucoup plus simple.

A moins bien sur si ton Userform sert à autre chose

Tu dis

A+

Salut Igloobel et merci pour ta réactivité!

Oui, mon UserForm ne comporte qu'une ComboBox (pas ListBox, au temps pour moi) destinée à lister les fichiers pour en sélectionner un à traiter, un bouton qui sert à valider la sélection et un autre qui ferme l'UserForm.
OK je vais voir avec les FileDialog, mais j'aurais aimé quand même comprendre ce qui cloche dans mon code, car je ne vois pas ce qui fait défaut...

Code:

---

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

Private Sub UserForm_Initialize() Dim Fso As Object, Lst As Object, ListeFichiers() As String, Ub As Integer Set Lst = CreateObject("System.Collections.SortedList") Set Fso = CreateObject("Scripting.FileSystemObject") Set disque = Fso.GetFolder("c:\") 'Tri des fichiers .out par ordre décroissant de date de création For Each fichier In disque.Files Lst.Add Format(fichier.datecreated, "yyyy-mm-dd-hh-mm-ss") & "_" & fichier.Name, fichier.Name   Next   Ub = -1 For I = 0 To Lst.Count - 1 Ub = Ub + 1 ReDim Preserve ListeFichiers(Ub) ListeFichiers(Ub) = Lst(Lst.GetKey(I)) Next Me.ListBox1.List = ListeFichiers End Sub

---

Bonjour

Très indépendamment de tout le reste (qui n'a rien à voir avec l'erreur)
cette ligne de code :

Code:

---

If UBound(ListeFichiers()) = -1 Then

---

n'a aucun sens
Un tableau non dimensionné n'a pas de UBound (et un Ubound ne saurait être négatif).
Fais ce test tout bête :

Code:

---

1 2	Dim toto() If UBound(toto()) = -1 Then MsgBox "coucou"

---

et constate la sortie en débug

Salut rdurupt et unparia,

rdurupt: Merci, ça marche très bien!

unparia: OK mais pourtant j'ai trouvé sur msdn:

Citation:

---

Si Array n'a pas d'éléments, par exemple, si c'est une chaîne de longueur nulle, UBound retourne -1.

---

:?

Citation:

---

Envoyé par Aal'k

unparia: OK mais pourtant j'ai trouvé sur msdn: :?

---

oui et pourtant non!

écris ça dans la fenêtre d'execution ?ubound(array())écris ça dans ton code ?ubound(array())

Citation:

---

Envoyé par rdurupt

oui et pourtant non!

---

Pourrais-tu être un peu plus explicite? :mrgreen:

Ne pas confondre array et matrice (tableau dynmique).
Ce que tu as lu est vrai dans le cas d'un array, et ainsi :

Code:

---

1 2 3

toto = Array() MsgBox UBound(toto) If UBound(toto) = -1 Then MsgBox "coucou"

---

unparia: D'accord c'est noté!

Encore une fois, merci à tous!

A+

Pas de quoi...
Pour les plus curieux, maintenant :
voici un exemple de mécanisme rigolo qu'il m'arrive d'utiliser dans certains cas (rares) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private toto()   Private Sub CommandButton1_Click() If Not (Not toto) Then MsgBox "déja dimensionné à " & UBound(toto) & " on va lui ajouter un élément" ReDim Preserve toto(UBound(toto) + 1) MsgBox "maintenant dimensionné à " & UBound(toto) Else MsgBox "non encore dimensionné - pouvez faire un redim(0), par exemple. On le fait" ReDim toto(0) MsgBox "maintenant dimensionné à " & UBound(toto) End If End Sub

---

Si DarkVader, que je salue, passe par là, il va surement crier au scandale et proposer du plus pur (ce qui est en effet également possible)