bjour a tous,
je recherche un moyen de copier des fichiers qui ont une
date comprise entre le date d'execution et la date
d'execution - 7 jours.
le mieux serait d'avoir un script qui copie les fichiers
qui ont en tre 7 jours et 0 jours de modification sur ma
Source et face le menage sur la destination en supprimant
tout les jours les fichiers datant de plus de 8 jours.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alain CROS
Bonjour.
Une piste
Dim FSO, Folder, File,Source,Dest Source = "Le Chemin Complet De La Source" Dest = "Le Chemin Complet De La Destination" Set FSO = CreateObject("Scripting.FileSystemObject") Set Folder = FSO.GetFolder(Dest) For Each File In Folder.Files If File.DateLastModified < Now - 8 Then File.Delete End If Next Set Folder = FSO.GetFolder(Source) For Each File In Folder.Files If File.DateLastModified > Now - 8 Then FSO.MoveFile Source & "" & File.Name, Dest & "" & File.Name End If Next Set File = Nothing Set Folder = Nothing Set FSO = Nothing
Alain CROS
"jsavary" a écrit dans le message de news: 08cd01c491b3$386e1b10$
bjour a tous, je recherche un moyen de copier des fichiers qui ont une date comprise entre le date d'execution et la date d'execution - 7 jours.
le mieux serait d'avoir un script qui copie les fichiers qui ont en tre 7 jours et 0 jours de modification sur ma Source et face le menage sur la destination en supprimant tout les jours les fichiers datant de plus de 8 jours.
merci d'avance pour votre aide.
Bonjour.
Une piste
Dim FSO, Folder, File,Source,Dest
Source = "Le Chemin Complet De La Source"
Dest = "Le Chemin Complet De La Destination"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Dest)
For Each File In Folder.Files
If File.DateLastModified < Now - 8 Then
File.Delete
End If
Next
Set Folder = FSO.GetFolder(Source)
For Each File In Folder.Files
If File.DateLastModified > Now - 8 Then
FSO.MoveFile Source & "" & File.Name, Dest & "" & File.Name
End If
Next
Set File = Nothing
Set Folder = Nothing
Set FSO = Nothing
Alain CROS
"jsavary" <jsavary@regional.com> a écrit dans le message de news: 08cd01c491b3$386e1b10$a401280a@phx.gbl...
bjour a tous,
je recherche un moyen de copier des fichiers qui ont une
date comprise entre le date d'execution et la date
d'execution - 7 jours.
le mieux serait d'avoir un script qui copie les fichiers
qui ont en tre 7 jours et 0 jours de modification sur ma
Source et face le menage sur la destination en supprimant
tout les jours les fichiers datant de plus de 8 jours.
Dim FSO, Folder, File,Source,Dest Source = "Le Chemin Complet De La Source" Dest = "Le Chemin Complet De La Destination" Set FSO = CreateObject("Scripting.FileSystemObject") Set Folder = FSO.GetFolder(Dest) For Each File In Folder.Files If File.DateLastModified < Now - 8 Then File.Delete End If Next Set Folder = FSO.GetFolder(Source) For Each File In Folder.Files If File.DateLastModified > Now - 8 Then FSO.MoveFile Source & "" & File.Name, Dest & "" & File.Name End If Next Set File = Nothing Set Folder = Nothing Set FSO = Nothing
Alain CROS
"jsavary" a écrit dans le message de news: 08cd01c491b3$386e1b10$
bjour a tous, je recherche un moyen de copier des fichiers qui ont une date comprise entre le date d'execution et la date d'execution - 7 jours.
le mieux serait d'avoir un script qui copie les fichiers qui ont en tre 7 jours et 0 jours de modification sur ma Source et face le menage sur la destination en supprimant tout les jours les fichiers datant de plus de 8 jours.
merci d'avance pour votre aide.
Jacques Barathon [MS]
Robocopy (outil du Resource Kit de Windows) fait cela très bien avec l'option /MAXAGE:7.
Jacques
"jsavary" wrote in message news:08cd01c491b3$386e1b10$
bjour a tous, je recherche un moyen de copier des fichiers qui ont une date comprise entre le date d'execution et la date d'execution - 7 jours.
le mieux serait d'avoir un script qui copie les fichiers qui ont en tre 7 jours et 0 jours de modification sur ma Source et face le menage sur la destination en supprimant tout les jours les fichiers datant de plus de 8 jours.
merci d'avance pour votre aide.
Robocopy (outil du Resource Kit de Windows) fait cela très bien avec
l'option /MAXAGE:7.
Jacques
"jsavary" <jsavary@regional.com> wrote in message
news:08cd01c491b3$386e1b10$a401280a@phx.gbl...
bjour a tous,
je recherche un moyen de copier des fichiers qui ont une
date comprise entre le date d'execution et la date
d'execution - 7 jours.
le mieux serait d'avoir un script qui copie les fichiers
qui ont en tre 7 jours et 0 jours de modification sur ma
Source et face le menage sur la destination en supprimant
tout les jours les fichiers datant de plus de 8 jours.
Robocopy (outil du Resource Kit de Windows) fait cela très bien avec l'option /MAXAGE:7.
Jacques
"jsavary" wrote in message news:08cd01c491b3$386e1b10$
bjour a tous, je recherche un moyen de copier des fichiers qui ont une date comprise entre le date d'execution et la date d'execution - 7 jours.
le mieux serait d'avoir un script qui copie les fichiers qui ont en tre 7 jours et 0 jours de modification sur ma Source et face le menage sur la destination en supprimant tout les jours les fichiers datant de plus de 8 jours.
