Script pour copier, effacer fichiers dans un dossier avec date VBS

Bon j'ai reussi la premiere partie pour avoir un dossier date:

Dim FichierSource, FichierSource2, FichierDest, DateFichier, objFSO, fso, f, objFSO2, FileName

 
    'Variables du fichier a copier et du dossier de destination

     FichierSource = "D:\ASI_DataBase\Fichier1.mdb"

     FichierSource2 = "D:\ASI_DataBase\Fichier2.mdb"

     DateFichier = FormatDate(Date(), "-" )

     FileName = "C:\Sauvegarde du " & DateFichier & "\" 

 
   Set fso = CreateObject("Scripting.FileSystemObject")

   Set f = fso.CreateFolder(FileName)

   Set objFSO = CreateObject("Scripting.FileSystemObject" )

   Set objFSO2 = CreateObject("Scripting.FileSystemObject" )

 
 
 
 CreateFolderDemo = FileName

 objFSO.Copyfile FichierSource, CreateFolderDemo & "fichier1" & ".mdb"

 objFSO2.Copyfile FichierSource2, CreateFolderDemo & "fichier2" & ".mdb"

 
 
 
Function FormatDate(ValDate, Caractere)

Dim MoisDate, JourDate

ValDate = CDate(ValDate)

Caractere = CStr(Caractere)

MoisDate = Month(ValDate)

 JourDate   = Day(ValDate)

FormatDate = CStr(Year(ValDate)) & Caractere

If MoisDate < 10 Then

 FormatDate = FormatDate & "0"

End If

FormatDate = FormatDate & CStr(MoisDate) & Caractere

If JourDate < 10 Then

 FormatDate = FormatDate & "0"

End If

FormatDate = FormatDate & CStr(JourDate)

End Function

Donc maintenant, j'ai un script fonctionnel pour mon copier/coller automatique avec la creation quotidienne d'un dossier avec l'intitule contenant la date sous la forme:
"Sauvegarde du 2010-12-04"

Maintenant comment faire pour avoir une "purge" automatique?
Des suggestions?  

C'est nul  

J'te ponds un truc mieux.

C'est nul , c'est nul... je suis biologiste et toi ingenieur alors oui  
Mais ca fait ce que je veux  

Merci  

http://www.mediafire.com/?dblrfxc861ni127

Quand tu lances l'application, tu peux configurer le bouzin, et quand tu la lance avec le paramètre "-backup", la sauvegarde est effectuée. Tu peux aussi modifier les options dans le fichier XML à la main.

Impec'

Mais attend:
- j vois que tu as mis une limite de temps, une marge de sauvegardes et timeout de l'application.

Tu peux me preciser a quoi ca correspond?
Il y a une suppression automatique apres 30 jour ou apres 5 sauvegardes ?

Merci en tout cas
 

Bon il est bien mais il est nul aussi: on peut pas changer le fichier de destination via le logiciel.

Moi je veux qu'il copie de D:\ASI Database vers D:\Dossier de sauvegarde par exemple et quand je fais le changement, si j'eteind et rallume le logiciel, ben ca le garde paps en memoire  

Et un truc: il sauvegarde automatiquement ou je dois cliquer sur le bouton pour que la sauvegarde se fasse ?  

En plus il est completement naze: si je change en dur le repertoire de sauvegarde, ca change aussi le repertoire source donc il me sauvegarde plus rien  

 

Je m'occupe de mettre un autre dossier de sauvegarde.

Pour les options, permet d'éviter la suppression de toutes les sauvegardes, genre si la purge est à 30 jours, et que tu lances pas le truc pendant plus de 30 jours... bah dès que tu le relance, ça purge toutes les sauvegardes précédentes. La marge, c'est le nombre qu'il conservera toujours, même si ils sont expirés.
Ce qui veut dire que même 30 jours plus tard, si toutes les sauvegardes sont expirées, il te gardera quand même les 5 dernières. Malin  

Sinon le timeout, c'est au cas où ça plante, ce qui ne devrait jamais arriver. C'est la limite absolue du temps que l'application sera lancée en fait, et si ça répond pas au bout de 20 secondes, ça considère que c'est planté. Touche pas, fais comme si c'était pas là. Au mieux, augmente le si tu vois qu'il a du mal, le seul truc qui pourrait l'empêcher, c'est que tes fichiers à copier soient super gros, et donc qu'il prenne beaucoup de temps à les copier. Enfin à toi de voir si les fichiers sont gros, mais normalement y'a pas à toucher.


Sinon pour changer les options dans le logiciel, faut appuyer sur "Accepter"  

UPDATE §§§§§§

http://www.mediafire.com/?tbld32t2o6bmsv6

J'ai clique sur "accepter" mais ca sauvegarde pas plus  

Sinon, ca copie des fichiers allant de 100Ko a 70Mo (selon les postes d'analyse et leur activite quotidienne).

Donc je dois modifier le Timeout ?  

He dit, ca t'interresserait pas plutot de m'expliquer comment ajouter une fonction purge a mon script de merde ?  

Au moins je saurais ce que ca fait parce que la, il est beau ton truc, je dit pas, mais est ce que je peux le lancer avec le planificateur de tache Windows pour faire un sauvegarde 100% automatique ?
Parce que si il y a un bouton "faire la sauvegarde maintenant", ca fait pas tres .... automatique  

Et puis si 'eteind le programme apres avoir change le chemin de destination et clique sur "accepter", ben ca me remet le chemin initial, en gro sje dois modifier en dur donc est ce que si je modifie le sautres valeurs, je dois le faire en dur?
Il sert a quoi alors le bouton "accepter" ?  

Le timeout mets le à un truc genre 600, ça fait 10 minutes. De toute façon ça prendra moins que ça, et y'a peu de raisons que ça plante d'une telle façon.

Et en effet j'avais carrément oublié la sauvegarde des options de façon durable. Ça les mémorisait tant que l'appli restait lancée, mais après ça sautait.

Déjà la V3  

http://www.mediafire.com/?2d9dhz59r7vv23l

Et pour le backup auto, faut le lancer avec le paramètre "-backup", donc dans le planificateur tu rajoute ça à la fin, et là ça sera 100% automatique, et t'auras pas l'interface que tu vois quand tu le lance à la main. Fais un raccourci rapidement pour le lancer, et tu verras. Et j'ai testé ça à mort pour être sûr que ça plante pas, et je suis d'ailleurs heureux d'apprendre que même si tout ne marchait pas vraiment, ça plantait pas  
Donc franchement je ferais assez confiance à mon truc.

Maintenant pour la purge, ça récupère la date dans le nom du dossier, ça la reconvertit en date, ça compare à aujourd'hui, ça les classe par ancienneté... C'est pas de la petite prog quoi, et même si ça a pas l'air compliqué, c'est mine de rien ce qu'on passe 99% du temps à faire en programmation : trier des conneries de ce genre  
Donc ton script va exploser si j'y rajoute tout ça en fait. Surtout que moi je vérifie si les dossiers et fichiers existent et bien et tout le tintouin, ton truc plante au moindre truc sans donner d'explication. Donc je me doute que tu dois trouver ça "énorme" pour faire un backup  , mais crois moi que j'ai fait le minimum possible pour rester simple et fiable, sans faire un truc trop lourd.

Et donc, ca permet de faire le truc automatiquement ou faut cliquer sur le bouton tous les jours ?  

Maintenant c'est le bouton "retablir" qui sert a rien.

F5 §§§§§

Je retourne jouer à Halo entre temps  

Heu, tu peux decrire un peu la procedure la?

Parce que je lance l'outil de creation de tache planifiee mais je sais pas quoi selectionner dans le lot, l'executif?

Ouais tu choisis l'exe, mais bien souvent il te laisse rien rajouter. Une fois que t'as créé la tâche, retourne dans les options, et dans le chemin d'exécution, tu rajoute -backup à la fin.

Genre : c:\dossier\MDBackup.exe -backup

OK

On va tester ca alors.
Merci  

Crée simplement un raccourci vers l'appli, et rajoute le -backup à la fin, et tu verras ce que c'est sensé faire.