Discussion :

[soron59]

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

[hackoofr]

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
19
20
21
22
23
24
25
Option Explicit
On Error Resume Next
Dim FSO,Source,Destination
Set FSO = CreateObject("Scripting.FileSystemObject")
Source = "E:\VM"
Destination = "F:\backup\Sauvegarde_du " & Day(Now) &  "-" & Month(Now) & "-" & Year(Now) & "\"
Call CreateFolderRecursive(Destination)
FSO.CopyFolder Source,Destination
If Err <> 0 Then
    MsgBox Err.Description,VbCritical,Err.Description
    wscript.Quit()
End If
'********************************************************************
Function CreateFolderRecursive(FullPath)
    Dim arr,dir,path,FSO
    Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
    arr = split(FullPath, "\")
    path = ""
    For Each dir In arr
        If path <> "" Then path = path & "\"
        path = path & dir
        If FSO.FolderExists(path) = False Then FSO.CreateFolder(path)
    Next
End Function
'********************************************************************

[soron59]

Salut,

Merci pour ton aide,

Par contre j'ai toujours un message "Permission refusée"

aurais tu une autre piste ou alors je doit peux Etre faire ça en powershell?

Merci pour ta réponse,

Cdt,

Florent

[l_autodidacte]

Par contre j'ai toujours un message "Permission refusée"

Sous quel OS tu travailles ?
L'UAC est activé ou non si VISTA ou plus ?

[soron59]

Bonjour,

Oui UAC est bien désactiver, je travail sur un win server 2008 R2.
Quand je copie les fichiers à la main, j'ai un message "Le fichier XXX est utiliser par un autre programme" est donc je fait ignorer.

Merci encore,

Soron