probleme avec Dir...

Question

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

cs_wape · Answer

Bonjour,

Ton code recherche le fichier dimitra. Pour lister les fichiers du r&#233;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

cs_Dimitra · Answer

Ah oki merci! Ca marche mais il n'accepte de selectionner que le premier fichier du repertoire, apres ca myfile devient vide :S

phenX · Answer

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

phenX · Answer

voila, excuse moi , je m'&#233;tait tromp&#233;

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

Probleme avec Dir...

4 réponses