Copie multiple
darknanar
-
7 mai 2001 à 13:25
tof72 Messages postés 33 Date d'inscription mardi 8 juin 2004 Statut Membre Dernière intervention 18 juillet 2005 - 20 juil. 2004 à 11:37
tof72 Messages postés 33 Date d'inscription mardi 8 juin 2004 Statut Membre Dernière intervention 18 juillet 2005 - 20 juil. 2004 à 11:37
2 réponses
tof72
Messages postés
33
Date d'inscription
mardi 8 juin 2004
Statut
Membre
Dernière intervention
18 juillet 2005
20 juil. 2004 à 11:37
20 juil. 2004 à 11:37
Salut
essai le code suivant suivant
do
fichier = Dir(cheminsource & "*.pdf") 'Je récupère le nom exacte du fichier.
If fichier = "" Then 'Si la variable fichier est vide alors on quite la boucle do.
Exit Do
Else
FileCopy cheminsource + fichier, chemindest + fichier 'Copie du fichier.
Kill cheminsource + fichier 'Suppression du fichier du répertoire source.
End If
loop
essai le code suivant suivant
do
fichier = Dir(cheminsource & "*.pdf") 'Je récupère le nom exacte du fichier.
If fichier = "" Then 'Si la variable fichier est vide alors on quite la boucle do.
Exit Do
Else
FileCopy cheminsource + fichier, chemindest + fichier 'Copie du fichier.
Kill cheminsource + fichier 'Suppression du fichier du répertoire source.
End If
loop
