Script suppresion de dossier plus vieux que 14 jours

danyocean le 26 octobre 2009 à 11h53

Bonjour,

Sur un disque dur réseaux s'enregistre des vidéos de surveillances déclenché si mouvement devant les caméras.
J'ai donc 2 dossier partagés qui concernent chacun une caméra. Dans ces dossiers viennent se créer un dossier par jour et dans ceux-ci des dossiers par heures d'enregistrement puis enfin dans ces derniers, les fichiers vidéos. Ce qui donne cette arborescence:

\\XX.XX.XX.XX\camera1\20091012\04\20091012-0456_D.avi

Je souhaite dans un soucis de respect des lois supprimer les dossiers présent dans camera1 qui ont plus de 14 jours.

Il s'agirait donc d'une tache planifié qui tournerait sur notre serveur windows 2003.

N'aillant pas l'habitude de créer des batch, je m'adresse à vous pour m'aider la dessus.

Merci d'avance

Dany

Configuration: Windows XP
Firefox 3.5.3

répondre

QuiPhenix le 26 octobre 2009 à 21h28

Bonsoir,

voila un script Visual Basic qui permettra de supprimer le dossier assimilé à la date du jour - 14. Par exemple, nous sommes le 26, il détruira le dossier du 12. Il faudra donc le lancer chaque jour.

Pour l'utiliser, il suffit de copier le code dans un fichier texte avec une extension en .vbs et de modifier le chemin réseau pour qu'il soit correct. Le script pourra ensuite être lancé chaque jour par une tâche planifiée.

Attention, la suppression des dossiers est définitive et aucune confirmation ne sera demandée. Vérifiez bien les chemins et faites des tests et/ou des copies de sauvegardes avant d'exécuter ce script.

dim fso,argv,liste
set fso = wscript.CreateObject("Scripting.FileSystemObject")
set argv = wscript.arguments

' Chemin de base sur le reseau
src="\\xxx.xxx.xxx.xx\camera"

' On recupere la date du jour -14 jours
d=date
d=dateAdd("d", -14, d)
' On constitue le nom du dossier date
y=datePart("yyyy", d)
m=datePart("m", d)
d=datePart("d",d)
doss=y&m&d

for i=1 to 2 step 1
' Generation du chemin pour chaque camera
suppr=src&i&"\"&doss
' Si le dossier existe
if fso.folderExists(suppr) then
' On le detruit avec tout ses fichiers et sous-dossier
fso.DeleteFolder(suppr)
end if
next

-------