Faire une copie en utilisant copyfolder

Bonjour le groupe,
J'ai un petit problème avec mon code. Je n'arrive pas a copier les dossiers vers une destination.

Code:

---

1 2 3 4 5 6 7

Set FSO = CreateObject("Scripting.FileSystemObject") For Each Drv In FSO.Drives IF Drv.drivetype = 1 Then Set fils = FSO.getfolder(Drv.path &"\") FSO.CopyFolder "fils", "C:\Users\mah\Desktop\" END IF NEXT

---

Pouvez-vous m'aider s'il vous plaît ?

Salut

Code:

---

FSO.CopyFolder fils, "C:\Users\mah\Desktop\"

---

Car dans ta syntaxe tu demandes de copier le dossiers ayant pour nom fils et nom pas le contenu de la variable fils = FSO.getfolder(Drv.path &"\") les "" dans ta syntaxe étant en trop.

Citation:

---

Envoyé par ProgElecT

Salut

Code:

---

FSO.CopyFolder fils, "C:\Users\mah\Desktop\"

---

Car dans ta syntaxe tu demandes de copier le dossiers ayant pour nom fils et nom pas le contenu de la variable fils = FSO.getfolder(Drv.path &"\") les "" dans ta syntaxe étant en trop.

---

j'ai enlevé les " mais il m'affiche l'erreur suivante : Pièce jointe 622020

Le message d'erreur est dû au fait que la variable "fils" contient la lettre du lecteur amovible suivie de 2 points ( : ) qui n'est pas considéré comme étant un dossier.On doit donc penser aux sous-dossiers comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Dim FSO, Drv, fils, F   Set FSO = CreateObject("Scripting.FileSystemObject") For Each Drv In FSO.Drives IF Drv.drivetype = 1 Then Set fils = FSO.GetFolder(Drv.path & "\").SubFolders ' ici on peut supprimer & "\" sans souci For Each F In fils FSO.CopyFolder F , "C:\Users\mah\Desktop\" Next End If Next

---

Merci beaucoup, le problème est résolu. Mais maintenant, Mon antivirus a considéré cela comme une menace. Pouvez-vous m'expliquer un peu cela ?

Le plus simple est d'aller dans la configuration de l'antivirus et ajouter le script à la liste des exclusions et le tour est joué !

Si tu as eu satisfaction et que le problème est résolu, il y a un bouton :resolu: en bas que tu dois actionner pour faire savoir que le problème est résolu pour que tout le monde le sache !

Citation:

---

Envoyé par l_autodidacte

Le plus simple est d'aller dans la configuration de l'antivirus et ajouter le script à la liste des exclusions et le tour est joué !

---

1- Le script ne fonctionne pas correctement comme je le souhaite étant donné qu'il n'y a pas de faute dans le code car permission refusé alors que je suis en mode administrateur.
Pièce jointe 622086

2-Puis à chaque fois que je lance le script il y a ce dossier qui est créé automatiquement alors que j'ai autorisé le script dans mon antivirus : Pièce jointe 622087


N.B : j'ai l'intention d'exuter ce script en boucle en créant un intervalle d'une minute

Comment puis-je faire pour régler ce problème permission refusé et ce dossier qui est créé automatiquement ? Merci pour vos réponses.

Si l'un des dossiers à copier existe déjà dans la destination, ce message peut se produire.
Il faudrait dans ce cas modifier la ligne 10 du code en mettant : FSO.CopyFolder F , "C:\Users\mah\Desktop\", True ,
et ce pour forcer la copie et écraser l'ancien dossier et son contenu.

J'ai essayé mais l'erreur persiste :calim2:

Rebonjour le groupe,

J'ai eu cette idée pour comprendre le problème : afficher F avant la copie ainsi je peux voir sur quel dossier il génère l'erreur.

Il existe bien des dossiers qui génèrent l'erreur mais je ne sais pas quoi faire de ces dossiers après.

Quelqu'un peut m'aider s'il vous plaît ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit   Dim FSO, Drv, fils, F   Set FSO = CreateObject("Scripting.FileSystemObject") For Each Drv In FSO.Drives IF Drv.drivetype = 1 Then Set fils = FSO.GetFolder(Drv.path & "\").SubFolders For Each F In fils wscript.echo "Chemin à copier:" & F FSO.CopyFolder F , "C:\Users\mah\Desktop\" wscript.echo "Chemin copié!" Next End If Next

---