Discussion :

[soshelpvb]

Bonjour ,
Je suis toute débutante dans le monde du Vb je voudrais savoir comment charger le contenu d'un répertoire dans une listebox

Merci

[Invité]

Regarde sur le lien ci-dessous

http://www.developpez.net/forums/d95...ister-dossier/

[soshelpvb]

Bonjour ,

Merci pour votre réponse j'ai essayer de mettre le bout de code dans mon bouton mais ca ne marche pas :
ci dessou le code que j'ai trouvé dans un autre forum traitant le meme sujet

Private Sub Commande0_Click()
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("chemin de mon répertoire")

' Afficher tous les fichiers du répertoire
For Each fle In fld.Files
NomFichier = fle.Path
'Liste14.AddItem , NomFichier
List14.AddItem (NomFichier)
Me!List14.AddItem , , NomFichier
Next
Debug.Print


End Sub

en l'executant j'ai un message d'erreur qui me dit que l'objet est requi donc voila merci d'avance

[Invité]

Voici un bout de code que j'avais utilisé dans une application, par contre c'est du C# (frameWork 4.0), je te laisse le traduire en VB.NET

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
 
	public class MFichiers
    {
        #region Ctor
        /// <summary>
        /// Constructeur
        /// </summary>
        public MFichiers () 
        {
        }
        #endregion
 
        #region
        /// <summary>
        /// retourne les fichier contenus dans un dossier
        /// </summary>
        /// <param name="p_sDossier"></param>
        /// <returns></returns>
        private List<FileInfo> GetFichier(List<FileInfo> p_listFichier, String p_sDossier, String p_sFiltre)
        {
            List<FileInfo> listeFichier = new List<FileInfo>();
 
            DirectoryInfo dossierInfo = new DirectoryInfo(p_sDossier);
            listeFichier.AddRange(dossierInfo.GetFiles(p_sFiltre == "" ? "*" : p_sFiltre).ToList()); 
 
            dossierInfo.GetDirectories().ToList().ForEach(dataDossier => {
                listeFichier.AddRange(GetFichier(p_listFichier, dataDossier.Name, p_sFiltre));  
            });  
 
 
            return listeFichier;
        }
        #endregion
 
        #region Methode public
        /// <summary>
        /// retourne les fichier contenus dans un dossier
        /// </summary>
        /// <param name="p_sDossier"></param>
        /// <returns></returns>
        public List<FileInfo> GetFichier(String p_sDossier, String p_sFiltre)
        {
            List<FileInfo> listeFichier = new List<FileInfo>();
 
            DirectoryInfo dossierInfo = new DirectoryInfo(p_sDossier);
 
            GetFichier(listeFichier, p_sDossier, p_sFiltre == "" ? "*" : p_sFiltre);
 
            return listeFichier;
        }
        #endregion
    }

[rv26t]

Bonjour,

Peut être un exemple plus simple à étudier avant d'utiliser un code sophistiqué comme le présente gcorbineau.

Code :

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

1
2
3
4
5
6
7
8
        ' liste les répertoires
        For Each Repertoires As DirectoryInfo In New DirectoryInfo("c:\").GetDirectories()
            ListBox1.Add("\" & Repertoires.Name) ' le "\" pour différencier visuellement répertoires et fichiers dans la listbox
        Next
        ' liste les fichiers
        For Each Fichiers As FileInfo In New DirectoryInfo("c:\").GetFiles()
            ListBox1.Items.Add(Fichiers.Name)
        Next

N'hésite pas à consulter msdn avec la recherche sur le mot clé.

A+, Hervé.

[soshelpvb]

Bonjour

Merci pour votre attention , j'ai essayer tous les bouts de code que vous m'avez proposé mais .du coup jai continué a chercher et j'ai trouvé ce bout de code que j'ai adapté a mes besoin il se compile mais il m'affiche rien dans ma listebox merci de pouvoir m'aider a debolquer mon souci .
Private Sub Commande20_Click()

repertoire = "chemin de mon repertoire"
nf = Dir(repertoire & "*.*") ' premier fichier
Do While nf <> ""
Me.Liste14.AddItem nf
nf = Dir ' fichier suivant
Loop
End Sub