Bonjour.
Dans la fonction suivante, j'ai un souci car les dossiers contenant des espaces semblent ne pas être pris en compte. Quelqu'un peut-il m'aider ?
Merci d'avance.
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
16
17
18 Function CopierSousRepertoires (Source, Destination, PurgerDestination) Dim CopieRep Set objFolder = fso.GetFolder(Source) Set colSubfolders = objFolder.SubFolders For Each objSubfolder in colSubfolders If PurgerDestination = "Y" then AppelRobocopy objSubfolder.Path, Destination & "\" & objSubfolder.Name , True Else AppelRobocopy objSubfolder.Path, Destination & "\" & objSubfolder.Name , False End if Next Set CopieRep = Nothing End Function
Partager