liste des fichiers d'un repertoir

Marsh Posté le 26-06-2002 à 09:16:40

Après avoir récupéré tous les noms de fichiers du chemin, au moment de sortir de la boucle, une erreur survient au niveau de la ligne surlignée:
Argument ou appelle de procédure incorecte
voila mon code:

Sub ListeFichierRep(chemin, form)

If Right(chemin, Len(chemin) - (Len(chemin) - 1)) <> "\" Then

form.List1.AddItem (Dir(chemin & "\" ))
If (Dir(chemin & "\" )) = "" Then
Exit Sub
End If

Else

form.List1.AddItem (Dir(chemin))
If (Dir(chemin)) = "" Then
Exit Sub
End If

End If

While Dir() <> ""
form.List1.AddItem (Dir())
Wend

End Sub

Marsh Posté le 26-06-2002 à 09:16:40

Marsh Posté le 26-06-2002 à 11:20:35

petite réctification:
tous les fichiers ne sont pas listés lorsque ca bug

Marsh Posté le 26-06-2002 à 12:26:17

enlève les parenthèses et ça devrait marcher

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Marsh Posté le 26-06-2002 à 13:02:20

mareek a écrit a écrit :

enlève les parenthèses et ça devrait marcher

Merci mais je me compliquais la vie...
g mis un FileListeBox

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *