Bonjour à tous !

Que d'émotion, c'est mon premier message sur un forum de ce type
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 ...

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 : 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
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

Bonne Journée.