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 ?