Copie de fichier par rapport à la date de modification

[liondu75]

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

[m4riachi]

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

[liondu75]

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

[liondu75]

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