Bonjour,

J'ai le script suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Dim FSO,oFSO,Ofld
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set FSO = FSO.CreateFolder("F:\backup\Sauvegarde_du " & day(Now) & "\"&"")
On Error Resume Next
oFSO.CopyFolder "E:\VM", "F:\backup\Sauvegarde_du " & day(Now) & "\"
J'ai une erreur de permission mais je pense que sa viens du fait qu'il y a des fichiers utilisé par un autre programme.

je ne sais pas si il y a une solution pour passer c'est erreur, j'ai tester un On Error Resume Next mais sa ne fonctionne pas.

Merci pour votre aide,

Soron