Discussion :

[floriaan60]

bonjour,

savez vous comment déplacer des fichiers à partir d'une date en créant en fichier .bat ?

[ram-0000]

tu veux que le script de déplacement de tes fichiers soit lancé à une certaine date/heure de manière répétitive ou non
ou bien tu veux déplacer des fichiers plus vieux que une certaine date
ou bien tu veux déplacer des fichiers plus récents que une certaine date

[floriaan60]

non je veux executé le batch moi meme
et je veux deplacé les fichier plus vieux que la date

merci

[floriaan60]

la commande:

/D: j-m-a

déplace des fichiers modifié depuis une certaine date mais moi je veux l'inverse ...

[Flamby38]

une proposition en vbs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
strComputer = "."
dim DateMini
DateMini = Date
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile ("C:\Windows\*.*  WHERE CreationDate > 'DateMini'", "d:\backup")
wscript.quit

[floriaan60]

je fais ce script avec VS 2005 ?
Mais enfaite, moi j'ai VS 2005 installé sur mon poste, mais ce script va etre utilisé sur plusieurs PC et donc ... je devrai installer VS 2005 sur les autres postes ?

[Flamby38]

non tu ecris dans un fichier texte et tu renommes le fichier en .vbs, comme tu le ferais pour un .bat.

[floriaan60]

ok.
Et j'ai du mal a comprendre le code
ou ce copie les fichiers ?
et serait t-il possible de ne pas les copier mais les deplacer ?

[Flamby38]

Ben le code c'est une ligne de texte :

oFSO.CopyFile ("C:\Windows\*.* WHERE CreationDate > 'DateMini'", "d:\backup") -> copie les fichiers de c:\windows dont la date de création est supérieure a ta date mini dans le repertoire d:\backup

Si tu veux déplacer les fichiers, il faudra utiliser la fonction MoveFile au lieu de la fonction CopyFile.

Après si tu n'as pas le temps/l'envie d'essayer de le faire en vbs, on peut peut etre le faire .bat, mais je ne sais pas comment, les .bat c'est quand meme très limité.

[floriaan60]

d'accord.
je ne connais pas vraiment le VBScript c'est pour ca.
a l'exécution du fichier .vbs

code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
strComputer = "."
dim DateMini
DateMini = Date
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.MoveFile ("C:\Windows\*.*  WHERE CreationDate > 'DateMini'", "d:\backup")
wscript.quit

j'ai une ereur: l'appel d'une fonction sub n'admet pas de parenthèses.

(ligne 5, caractère 79)