Discussion :

[ratiamanana]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ratiamanana]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

[l_autodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ratiamanana]

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 ?

[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é !

[l_autodidacte]

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

[ratiamanana]

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.


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 :


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.

[l_autodidacte]

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.

[ratiamanana]

J'ai essayé mais l'erreur persiste

[ratiamanana]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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