Probleme avec Dir...

Question

Sujet Précédent Sujet Suivant

Probleme avec Dir...

Signaler

cs_Dimitra

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

- 27 juil. 2005 à 09:19
phenX

Messages postés: 705
Date d'inscription: mercredi 4 mai 2005
Statut: Membre
Dernière intervention: 28 août 2012

- 8 mars 2006 à 18:00

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

A voir également:

Probleme avec Dir...
Dir vb6 ✓ - Forum - Visual Basic
Dir vb.net ✓ - Forum - VB.NET
Dir vbs - Forum - Visual Basic 6
Un prog pour les liste box et drive box + dir box - Codes sources - Visual Basic / VB.NET (Système)
Visual Basic / VB.NET : Vb6 : tout en un, une fonction dir() améliorée, avec retour d' - Guide

4 réponses

Posez votre question

cs_wape · Answer 1 · 2005-07-27T09:47:47+0200

Réponse 1 / 4

cs_wape

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

9
27 juil. 2005 à 09:47

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

cs_Dimitra · Answer 2 · 2005-07-27T11:22:10+0200

Réponse 2 / 4

cs_Dimitra

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

27 juil. 2005 à 11:22

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 3 · 2006-03-08T17:58:49+0100

Réponse 3 / 4

phenX

Messages postés: 705
Date d'inscription: mercredi 4 mai 2005
Statut: Membre
Dernière intervention: 28 août 2012

8 mars 2006 à 17:58

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 4 · 2006-03-08T18:00:05+0100

Réponse 4 / 4

phenX

Messages postés: 705
Date d'inscription: mercredi 4 mai 2005
Statut: Membre
Dernière intervention: 28 août 2012

8 mars 2006 à 18:00

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

Votre réponse