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