Pb de "dir"
cs_bbr75
Messages postés
4
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
2 juin 2005
-
2 juin 2005 à 15:10
linasteph Messages postés 153 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 22 juillet 2009 - 2 juin 2005 à 22:11
linasteph Messages postés 153 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 22 juillet 2009 - 2 juin 2005 à 22:11
A voir également:
- Pb de "dir"
- Vb6 dir ✓ - Forum VB.NET
- Vb dir - Forum Visual Basic
- Vbs dir - Forum VB.NET
- Probléme avec Dir ✓ - Forum Visual Basic 6
- System getproperty user dir - Forum Java
6 réponses
linasteph
Messages postés
153
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
22 juillet 2009
1
2 juin 2005 à 15:29
2 juin 2005 à 15:29
moi à mon avis s'ils perdent les pédales en gros je ferais ceci
dans ta fonction principale premire boucle
filename = dir(1er rep)
do while filename <> ""
msgbox FindFile(filename)
filename = dir
loop
création aurtre fonction pour deuxième recherche
function FindFile(filename as string) as boolean
sfile=dir(2ème rep)
do while sfile <> ""
if sfile = filename then
findfile = true
exit function
end if
loop
findfile = false
end function
dans ta fonction principale premire boucle
filename = dir(1er rep)
do while filename <> ""
msgbox FindFile(filename)
filename = dir
loop
création aurtre fonction pour deuxième recherche
function FindFile(filename as string) as boolean
sfile=dir(2ème rep)
do while sfile <> ""
if sfile = filename then
findfile = true
exit function
end if
loop
findfile = false
end function
cs_bbr75
Messages postés
4
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
2 juin 2005
2 juin 2005 à 15:35
2 juin 2005 à 15:35
C'est exactement ce que je fais, mais dans ta deuxième fonction tu dois aussi mettre un "Dir" pour faire avancer le loop, non?
Merci beaucoup pour la réponse!
Merci beaucoup pour la réponse!
linasteph
Messages postés
153
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
22 juillet 2009
1
2 juin 2005 à 15:45
2 juin 2005 à 15:45
Ah oui je vois un peu le soucis
le mieux peut être dans ce cas c'est de parcourir entièrement le première répertoire et de mettre les fichiers dans un tableau
ensuite pour chaque éléments de ton tableau tu recherches s'il existe dans le second
qu'enpense tu?
le mieux peut être dans ce cas c'est de parcourir entièrement le première répertoire et de mettre les fichiers dans un tableau
ensuite pour chaque éléments de ton tableau tu recherches s'il existe dans le second
qu'enpense tu?
cs_bbr75
Messages postés
4
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
2 juin 2005
2 juin 2005 à 15:54
2 juin 2005 à 15:54
Je vais essayer comme tu dis!
Merci beaucoup
BBR
Merci beaucoup
BBR
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_bbr75
Messages postés
4
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
2 juin 2005
2 juin 2005 à 16:24
2 juin 2005 à 16:24
Peux-tu me donner un exemple de stockage dans un tableau du nom des fichiers d'un répertoire, stp?
Merci
Merci
linasteph
Messages postés
153
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
22 juillet 2009
1
2 juin 2005 à 22:11
2 juin 2005 à 22:11
Dim TblFile() as string
Dim NBFile as integer
nbfile = 0
filename = dir("c:\temp")
do while filename <> ""
nbfile = nbfile +1
redim preserve TblFile(nbfile)
TblFile(nbfile) = filename
loop
ensuite tu parcours ton tableau
for cpt = 1 to nbfile
msgbox tblfile(cpt)
next cpt
Dim NBFile as integer
nbfile = 0
filename = dir("c:\temp")
do while filename <> ""
nbfile = nbfile +1
redim preserve TblFile(nbfile)
TblFile(nbfile) = filename
loop
ensuite tu parcours ton tableau
for cpt = 1 to nbfile
msgbox tblfile(cpt)
next cpt
