Lister le contenu d'un repertoire dans un ListBox

**MonsieurK** · 13/07/2006, 09h02

Bonjour à tous,
N'étant pas un King en VB (mais alors pas du tout du tout) je me permet de faire appel à votre aide:
Je cherche à lister le contenu d'un repertoire dans un ListBox le repertoire étant définie dans le code. Evidement j'ai trouvé pas mal de code se rapprochant (type explorateurs de fichiers) mais je n'ai pu en reprendre aucun sans avoir de bug. Auriez vous des fragments de codes à me ceder

Merci d'avance et bonne journée à tous!
+++

**FreeAccess** · 13/07/2006, 10h02

Bonjour,

j'ai trouvé pas mal de code se rapprochant (type explorateurs de fichiers) mais je n'ai pu en reprendre

Si tu as déjà testé plusieurs codes sans résultats

je ne pense pas que le fait de t'en proposer d'autres vont t'aider

Montre nous plutôt ce que tu as fais, et surtout les erreurs que tu as sur ton code.
Bonne continuation.

**MonsieurK** · 13/07/2006, 10h48

Alors mon code le voici:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Form_Open(Cancel As Integer)
Dim fso As Scripting.FileSystemObject
Dim fld As Scripting.Folder
Dim fld2 As Scripting.Folder
Dim fle As Scripting.file
Dim NomFichier As String
 
Set fso = New Scripting.FileSystemObject
 
Set fld = fso.GetFolder("D:\Programme\Backburner")
 
' Afficher tous les fichiers du répertoire
For Each fle In fld.files
   NomFichier = fle.Path
    Me.ListView.Items.Add (NomFichier)   'MON PROBLEME
 
    DoCmd.RunMacro "ActualiserPageActive"
Next
Debug.Print
 
 
Set fle = Nothing
Set fld2 = Nothing
Set fld = Nothing
Set fso = Nothing
 
End Sub

Je n'arrive pas a rajouter le nom du chier pour chaque fichier dans ma ListView! Enfin j'ai bel-et-bien l'impression que mon problème se situe plutôt vers l'utilisation d'une ListView en soit... En tout cas, le message d'erreur est:
Erreur 438 "Propriété ou méthode non gérée par cet objet"
Merci d'avance
+++++++

**MonsieurK** · 13/07/2006, 11h02

Arf j'approche de la solution

J'ai rajouté :

Code :

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

Me!ListView.ListItems.Add , , NomFichier

J'ai plus qu'à trouver un moyen de filtrer pr extension (genre afficher que les PDF). DOnc si quelqun a une idée? Car je vois pas trop pour le moment. Et puis aussi (et surtout) comment executer les fichier avec double click (mais ça, ne m'inquiete pas trop...)
Merci d'avance pour votre aide!
+++

**MonsieurK** · 13/07/2006, 11h07

Je précise qu'en fait je ne vais pas filtrer selon les extensions...
Donc au cas où il y avait quelques âmes généreuses qui voulaient m'aider...Ce n'est plus la peine. Par contre mon problème d'ouverture de fichier reste d'actualité!

+++