Discussion :

[djamellbg]

Bonjour,
je cherche a crée une script pour que je puisse récupérer des fichier de sauvegarde sur le réseaux,
Définir le fichier crée par date ( il doit juste récupérer le fichier crée le jour même )
merci

[l_autodidacte]

je cherche a crée une script pour que je puisse récupérer des fichier .....

Y a-t-il un début de code ??

[djamellbg]

Voici le scripts que je lance avec le planificateur, mais je doit lui indiquer la vérification du contenu du dossier C:\Backup_Old, si le fichier existe il ne copie pas, si il trouve des nouveaux fichiers il sont copiés .
Ce scripts copie tous le dossier chaque jour, donc je cherche un autre argument pour qu'il me copie juste les news fichiers crées
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
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Dim repSOURCE : repSOURCE = "C:\Backup_Old"
Dim repDESTINATION : repDESTINATION = "\\10.20.21.21\backup\"
Dim repVERIF : repVERIF = "\\10.200.21.21\backup\Backup_Old"
 
 
If fso.FolderExists(repVERIF) Then
wscript.echo " [  ] Le dossier " & repVERIF & " existe déjà, STOP!!!"
Else
fso.CopyFolder repSOURCE, repDESTINATION
wscript.echo " [OK] Le dossier à été copié"
End If

[l_autodidacte]

Si j'ai bien compris la demande, le script doit vérifier la source , la cible et la date du fichier à copier. Dans le cas où le dossier cible n'existerait pas il le copierait à partir de la source sans rien vérifier.
Si c'est ce qui est demandé essaie avec ce

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 
 
Dim fso, oFile
 
Set fso = CreateObject("Scripting.FileSystemObject")
Dim srcFolder : srcFolder = "C:\Backup_Old"
Dim destFolder : destFolder = "\\10.20.21.21\backup\"
Dim repVERIF : repVERIF = "\\10.20.21.21\Backup\Backup_Old"
 
 
If fso.FolderExists(repVERIF) Then
    wscript.echo " [  ] Le dossier " & repVERIF & " existe déjà," & vbNewLine & _
            "On copie uniquement les nouveaux fichiers" & vbNewLine & _
            "(s'il y en a) qui n'existent pas dans le dossier cible"
    For Each oFile In fso.GetFolder(srcFolder).Files
        If Not fso.FileExists(repVERIF & "\" & oFile.Name) Then 
            If fso.GetFile(oFile.Path).DateLastModified = Date Then _
              oFile.Copy repVERIF & "\" & oFile.Name
        End If
    Next
 
Else
    fso.CopyFolder srcFolder, destFolder
    wscript.echo " [OK] Le dossier à été copié"
End If