Discussion :

[ViveBilou6]

Bonjour à tous

Je souhaite lister dans une Listbox le contenu d'un répertoire. J'ai trouvé sur la faq le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim rep As String
'obtient le premier fichier ou répertoire qui est dans "c:\"
rep = Dir("c:\*.*", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
Do While (rep <> "")
    'teste si c'est un fichier ou un répertoire
    If (GetAttr("c:\" & rep) And vbDirectory) = vbDirectory Then
        MsgBox "Répertoire " & rep
    Else
        MsgBox "Fichier " & rep
    End If
    'passe à l'élément suivant
    rep = Dir
Loop

Mon programme trouve bien le premier fichier mais lorsqu'il arrive à "rep = Dir", j'ai le droit à une erreur d'exécution 5 ("Argument ou appel de procédure incorrect")

Quelqu'un peut t-il m'expliquer d'où ça peut venir ? Désolé si ma question vous paraît débile

[SfJ5Rpw8]

une petitee coquille dans la faq... modifie le test :

Code :

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

1
2
3
...
Do While(rep <> "")
...

[ThierryAIM]

une petitee coquille dans la faq...

corrigé

[ViveBilou6]

Ok merci beaucoup pour votre aide

[Theocourant]

Bonjour,

Un petit clic sur le tag serait le bienvenu.

Merci d'avance

Théo