Copier répertoire dans un autre
Résolu
A voir également:
- Copier répertoire dans un autre
- Vba copier une feuille dans un autre classeur sans ouvrir - Forum Visual Basic
- Copier une feuille excel en conservant le format du tableau - Forum Visual Basic
- Vba copier coller dans une autre feuille - Forum Visual Basic
- AIDE COPIER COLLER AUTOMATIQUE sur nouvelle feuille ( macro - VBA) sur excel - Forum VB.NET
- Vba copier coller dans un autre classeur ✓ - Forum Visual Basic 6
3 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
1 juil. 2013 à 12:42
1 juil. 2013 à 12:42
Salut
Ce que tu utilises n'est pas réellement du VB, mais du Script : FileSystemObject (FSO)
Pour faciliter la saisie du code, je te conseille d'ajouter le contrôle "Microsoft Scripting Runtime" qui est le fichier scrrun.dll (sous System32).
Tu trouveras l'aide des fonctions que propose cet objet dans l'aide de VB6.
CopyFolder possède une option permettant de préciser si tu autorise l'écrasement des données au cas où le répertoire existe déjà.
Si tu veux agir au niveau des fichiers, il faut descendre d'un cran et gérer le transfert de chaque fichier avec CopyFile (qui lui aussi a une option écrasement)
Une boucle de test (Do-Loop) pour chaque fichier contenu dans ton répertoire avec FileExists te permettra de gérer le questionnement de l'utilisateur pour savoir s'il faut faire ou pas la copie.
-1- Créer le répertoire de destination s'il n'existe pas encore (CreateFolder)
-2- Enumérer (boucle Do-Loop) chaque fichier du répertoire source avec GetFile
-3- Vérifier que le même nom existe ou pas (FileExists) dans le répertoire de destination -> Question utilisateur -> Copie avec écrasement ou pas
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)
Ce que tu utilises n'est pas réellement du VB, mais du Script : FileSystemObject (FSO)
Pour faciliter la saisie du code, je te conseille d'ajouter le contrôle "Microsoft Scripting Runtime" qui est le fichier scrrun.dll (sous System32).
Tu trouveras l'aide des fonctions que propose cet objet dans l'aide de VB6.
CopyFolder possède une option permettant de préciser si tu autorise l'écrasement des données au cas où le répertoire existe déjà.
Si tu veux agir au niveau des fichiers, il faut descendre d'un cran et gérer le transfert de chaque fichier avec CopyFile (qui lui aussi a une option écrasement)
Une boucle de test (Do-Loop) pour chaque fichier contenu dans ton répertoire avec FileExists te permettra de gérer le questionnement de l'utilisateur pour savoir s'il faut faire ou pas la copie.
-1- Créer le répertoire de destination s'il n'existe pas encore (CreateFolder)
-2- Enumérer (boucle Do-Loop) chaque fichier du répertoire source avec GetFile
-3- Vérifier que le même nom existe ou pas (FileExists) dans le répertoire de destination -> Question utilisateur -> Copie avec écrasement ou pas
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)
Utilisateur anonyme
1 juil. 2013 à 12:22
1 juil. 2013 à 12:22
Bonjour,
La méthode CopyFolder possède une option 'Overwrite'
Syntaxe: object.CopyFolder source, destination[, overwrite]
Cordialement
CF2i - Guadeloupe
Ingénierie Informatique
La méthode CopyFolder possède une option 'Overwrite'
Syntaxe: object.CopyFolder source, destination[, overwrite]
Cordialement
CF2i - Guadeloupe
Ingénierie Informatique
Merci les réponses,
Acive: Oui j'avais vu cette méthode, mais elle ne laisse pas la choix à l'utilisateur? soit on mets cette option a "true" soit à "false" si je ne me trompe pas.
Jack: Merci de ta réponse, je vais essayer de mettre cela en place!
Car en effet, je copie tous les fichiers d'un répertoire dans un autre, et je veut juste tester l’existence ou non des fichiers dans le nouveau répertoire.
Acive: Oui j'avais vu cette méthode, mais elle ne laisse pas la choix à l'utilisateur? soit on mets cette option a "true" soit à "false" si je ne me trompe pas.
Jack: Merci de ta réponse, je vais essayer de mettre cela en place!
Car en effet, je copie tous les fichiers d'un répertoire dans un autre, et je veut juste tester l’existence ou non des fichiers dans le nouveau répertoire.