Probleme avec Dir...

Signaler
Messages postés
9
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
28 juillet 2005
-
Messages postés
705
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
28 août 2012
-
Bonjour,
j'ai un petit(!) probleme, mon code semble correct (j'ai regardé sur msdn.com)
mais ne fonctionne quand meme pas. Le but est de lister les fichiers d'un répertoire mais bien que le repertoire soit plein il me dit qu'il est vide...

Y aurait-il une erreur que je n'ai pas vue? Je vous remercie d'avance :)
Dimitra


Dim myfile As String

myfile = Dir("C:\Documents and settings\dmelanit.MOBISTAR\Desktop\dimitra", vbNormal)
MsgBox (myfile)

Do While myfile <> ""
MsgBox (myfile)
myfile = Dir()
Loop

4 réponses

Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
9
Bonjour,

Ton code recherche le fichier dimitra. Pour lister les fichiers du répertoire dimitra :

Dim myfile As String

myfile = Dir("C:\Documents and settings\dmelanit.MOBISTAR\Desktop\dimitra \*.* ", vbNormal)
MsgBox (myfile)

Do While myfile <> ""
MsgBox (myfile)
myfile = Dir()
Loop

wape
Messages postés
9
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
28 juillet 2005

Ah oki merci! Ca marche mais il n'accepte de selectionner que le premier fichier du repertoire, apres ca myfile devient vide :S
Messages postés
705
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
28 août 2012

Dim myfile As String
Dim PreviousFile As String


myfile = Dir("C:\Documents and settings\dmelanit.MOBISTAR\Desktop\dimitra \*.* ", vbNormal)
MsgBox (myfile)

Do While PreviousFile <> ""
MsgBox (myfile)
myfile = Dir()
myfile = Dir("C:\Documents and settings\dmelanit.MOBISTAR\Desktop\dimitra\*.*", vbNormal)
Loop
Messages postés
705
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
28 août 2012

voila, excuse moi , je m'était trompé

Dim myfile As String
Dim PreviousFile As String


myfile = Dir("C:\Documents and settings\dmelanit.MOBISTAR\Desktop\dimitra \*.* ", vbNormal)
PreviousFile =""
MsgBox (myfile)

Do While myfile <> PreviousFile
MsgBox (myfile)
myfile = Dir()
myfile = Dir("C:\Documents and settings\dmelanit.MOBISTAR\Desktop\dimitra\*.*", vbNormal)
Loop