Discussion :

[Maryy]

Bonjour,

J'ai besoin de récupérer les noms des fichiers stockés dans un répertoire. Je fais un simple msgbox pour l'instant pour voir si j'arrive à bien récupérer les noms de mes fichiers.

J'ai deux fichiers dans mon répertoire. Le premier msgbox affiche bien le nom de mon premier fichier mais le 2ème msgbox s'affiche vide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim filename As String
Dim path1 As String
path1="C:\temp\*.*"
 
filename = Dir(path1)
 
While filename <> ""
     Debug.Print(filename)
     filename = Dir()
     MsgBox(filename)
 
End While

Pourquoi est-ce que je n'arrive pas à récupérer le nom du second fichier ?

Si je mets 3 fichiers, les deux premiers noms de fichiers s'affichent correctement mais pas le 3ème.

Merci d'avance !

[Maryy]

Je pense que j'ai compris. Il faut que je passe mon msgbox avant le dir pour pouvoir récupérer tous mes noms de fichiers.

Désolée !

[l_autodidacte]

Je pense que j'ai compris.

Pas tout à fait car il n'y a pas de "End While" mais Wend.
Essaie avec ce code où 39 représente tous les attributs de fichiers et pas celui d'un dossier :

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
Private Sub Command1_Click()
 
    Dim NomFichier As String
    Dim path1 As String
    path1 = "C:\temp\"
 
    NomFichier = Dir(path1, 39)
 
     Do While NomFichier <> ""
        If GetAttr(path1 & NomFichier) And 39 <> vbDirectory Then
            MsgBox (NomFichier)
        End If
        NomFichier = Dir()
    Loop
End Sub