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
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
Regarde sur le lien ci-dessous
http://www.developpez.net/forums/d95...ister-dossier/
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
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 }
Bonjour,
Peut être un exemple plus simple à étudier avant d'utiliser un code sophistiqué comme le présente gcorbineau.
N'hésite pas à consulter msdn avec la recherche sur le mot clé.
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
A+, Hervé.
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
Me.Listbox.Items.Add(Valeur)![]()
Bonjour ,
Je vous remercie pour votre apres plusieurs recherches j'ai reussi a afficher le contenu de mon repertoire dans une liste deroulante. et voici le code utilisé :
et maintenant ce que je voudrais c'est de ne pas afficher les fichiers dont le nom se termine par (_rapport) quelqu'un pourrait il m'aider
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 Private Sub Commande6_Click() Dim Liste As String Dim a As Integer a = 0 MyPath = "chemin de mon repertoire " myName = Dir(MyPath, vbDirectory) Do While myName <> "" ' Ignore le répertoire courant et le répertoire contenant le répertoire courant If myName <> "." And myName <> ".." Then ' Utilise une comparaison au niveau du bit pour vérifier que MyName est un répertoire. Liste = Liste & myName & ";" End If myName = Dir ' Extrait l'entrée suivante Loop 'pour enlever le ; final Liste = Left(Liste, Len(Liste) - 1) Forms!Formulaire9.Modifiable3.RowSource = Liste End Sub
merci d'avance
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager