[VBScript]Problème copier un fichier de meme nom mais pas de meme date.
Bonjour à tous !
Que d'émotion, c'est mon premier message sur un forum de ce type :cry:
Comme quoi j'arrive vraiment pas à m'en sortir ...
Je vous explique mon problème. Je dois créer une moulinette en VBScript qui doit comparer 2 répertoires (mis en paramètre dedans) et qui copie les fichiers du dossier source dans le dossier destination lorsque ceux ci sont inexistant OU dont la date de dernière modification est plus ancienne.
Sur ce forum j'ai récupéré un code qui permet de faire la 1ere partie.
Maintenant, je n'arrive absolument pas à comparer les dates de modifications des fichiers et donc de copier un fichier de meme nom mais avec une date plus récente.
Je ne sais pas si c'est clair ... pour moi oui mais je suis dedans donc ... :mouarf:
Pour information je n'y connais absolument rien en programmation Windows (merci le DUT qui apprend sous Unix) et c'est la première fois que je manipule du VBScript ...
Voici la code que j'ai pour le moment :
Code:
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
26
27
28
29
30
31
32
33
34
35
36
| Dim rep1, rep2
rep2 = "C:\Documents and Settings\nom_user\Bureau\Nouveau dossier"
rep1 = "C:\Documents and Settings\nom_user\Bureau\Nouveau dossier (2)"
Function VerifMiroir( repSource, repDest )
Dim oFSO, oFl, oFld
Set oFSO = CreateObject("Scripting.FileSystemObject")
If (oFSO.FolderExists(repSource) and oFSO.FolderExists(repDest)) Then
For each oFld in oFSO.GetFolder(repDest).SubFolders
If oFSO.FolderExists( (repSource & "" & oFld.Name) ) Then
VerifMiroir (repSource & "" & oFld.Name), oFld
Else
oFld.Copy( repSource & "" & oFld.Name)
End If
Next
For each oFl in oFSO.GetFolder(repDest).Files
If not oFSO.FileExists( (repSource & "" & oFl.Name) ) Then
oFl.Copy(repSource & "" & oFl.Name)
End If
Next
End If
End Function
VerifMiroir rep1, rep2
MsgBox "Traitement terminé" |
qui est extrait de http://www.developpez.net/forums/d48...script-backup/ et un peu modifié pour mon emploi.
J'espère que quelqu'un saura me guider dans ce monde de programmation Windows :D
Bonne Journée.
