Copie de fichier par rapport à la date de modification

Bonjour,

j'aimerais obtenir de l'aide quant à la mise en place d'un script qui me ferait la copie de fichier par rapport à sa date de modification. En effet, le script doit copier les fichier ayant une extension .bak d'un répertoire vers un autre mais ne prenant que les fichiers ayant la date de modification la plus récente.

j'ai essayé avec xcopy mais n'est pas trouvé les commandes pour la date de modification la plus récente.

merci d'avance pour votre aide

tu pourra récupérer la date de modification d'un fichier par

Code:

---

$filelastmodified = filemtime("chemin de ton fichier");

---

et avec

Code:

---

(time()-$filelastmodified)

---

tu aura la petite valeur est la plus récente

Merci pour ces indications mais je ne sais pas trop comment ajouter cela à mon script.

voici comment j'avais commencé mon script mais cela ne semble pas fonctionner comme espéré:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

On Error Resume Next   MyDate = DateAdd("d", 1, date) source = "RepertoireSource\*.txt" destination = "RepertoireDestination\ /D:"   StrCommand = "xcopy " & source & destination & MyDate     Set objShell = CreateObject("WScript.Shell")     ' wscript.echo StrCommand   objWshShell.Run strCommand, 1, True

---

Pourrais tu m'aider à implémenter la variable "Filelastmodified" dans mon script

je viens de trouver une autre solution qui semble fonctionner, mon seul pb ici est de ne prendre que les fichier ayant une extension .txt

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim sourcePath,targetPath,objFile,totalFiles,fso Set fso = CreateObject("Scripting.FileSystemObject") sourcePath = "Source" If fso.GetFolder(sourcePath).Files.Count <= 1 Then Wscript.Quit End If Set sourceFolder = fso.GetFolder(sourcePath) targetPath = "Destination" Dim oldestFile, oldestDate For Each objFile In sourceFolder.Files If oldestFile = "" Then Set oldestFile = objFile Else If objFile.DateLastModified > oldestFile.DateLastModified Then Set oldestFile = objFile End If End If Next oldestFile.Copy targetPath & "\" & oldestFile.Name Wscript.Quit

---