Nom de fichier
Résolu
morcelet
Messages postés
18
Date d'inscription
lundi 5 avril 2004
Statut
Membre
Dernière intervention
24 janvier 2008
-
12 janv. 2006 à 16:39
morcelet Messages postés 18 Date d'inscription lundi 5 avril 2004 Statut Membre Dernière intervention 24 janvier 2008 - 12 janv. 2006 à 17:25
morcelet Messages postés 18 Date d'inscription lundi 5 avril 2004 Statut Membre Dernière intervention 24 janvier 2008 - 12 janv. 2006 à 17:25
2 réponses
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
12 janv. 2006 à 16:58
12 janv. 2006 à 16:58
Il te suffit de boucler sur tout tes fichiers, et tester leurs noms :
Dim sFile As String
sFile = Dir("c:\Test\toto*.")
While sFile <> ""
FileCopy "c:\Test" & sFile, "c:\Test\1" & sFile)
sFile = Dir
Wend
sFile = Dir("c:\Test\titi*.")
While sFile <> ""
FileCopy "c:\Test" & sFile, "c:\Test\2" & sFile)
sFile = Dir
Wend
_____________________________________________________________________
Dim sFile As String
sFile = Dir("c:\Test\toto*.")
While sFile <> ""
FileCopy "c:\Test" & sFile, "c:\Test\1" & sFile)
sFile = Dir
Wend
sFile = Dir("c:\Test\titi*.")
While sFile <> ""
FileCopy "c:\Test" & sFile, "c:\Test\2" & sFile)
sFile = Dir
Wend
_____________________________________________________________________
morcelet
Messages postés
18
Date d'inscription
lundi 5 avril 2004
Statut
Membre
Dernière intervention
24 janvier 2008
12 janv. 2006 à 17:25
12 janv. 2006 à 17:25
merci beaucoup
@+
Morcelet
@+
Morcelet
