Script VBS pour supprimer des fichiers vieux de X jours

J'ai réalisé un script VBS pour supprimer des fichiers vieux de X jours. Le script n'est pas encore dans sa version finale car le premier dossier à être nettoyé est un serveur FTP et il manque quelques lignes pour que ça fonctionne. Mais là avec deux dossier en local ça fonctionne parfaitement. N'hésitez pas à demander si vous voulez que je vous explique son fonctionnement plus en détail !

Code:

'**************************
'Declarations de variables
'**************************

'Repertoire ou sont stockees les Alertes Webcam (Photos ou Mini videos)
DossierAlertesWebcam =  "\\172.20.59.15\emeric"

'Repertoire ou sont stockees les Captures Webcam (Photos et Videos complètes)
DossierCapturesWebcam = "C:\Program Files\Wireless-G Internet Home Monitoring Camera\Storage\LKe74ad8\Data"

'Nombre de jours de conservation des Fichiers
AgeMaximalFichiers = 2

'Initialisation des objets
Set fso = CreateObject("Scripting.FileSystemObject")

'On verifie que le dossier de stockage des alertes existe
If (myName = Winrep = fso.FolderExists(DossierAlertesWebcam)) = False Then
    Erreur = MsgBox("Le Dossier des Alertes Webcam est introuvable !" )
    Wscript.Quit
End If

'On verifie que le dossier de stockage des captures existe
If (myName = Winrep = fso.FolderExists(DossierCapturesWebcam)) = False Then
    Erreur = MsgBox("Le Dossier des Captures Webcam est introuvable !")
    Wscript.Quit
End If

'On recupere la date système
DateSysteme = Date


'**************************************
'Suppression des fichiers trop anciens
'**************************************

Set Folder = fso.Getfolder(DossierAlertesWebcam)
For Each File In Folder.Files
   If (DateDiff("d", File.DateCreated, DateSysteme) > AgeMaximalFichiers) Then
      If File.Attributes And 1 Then File.Attributes = File.Attributes - 1
         File.Delete()
      End If   
Next

Set Folder = fso.Getfolder(DossierCapturesWebcam)
For Each File In Folder.Files
   If (DateDiff("d", File.DateCreated, DateSysteme) > AgeMaximalFichiers) Then
      If File.Attributes And 1 Then File.Attributes = File.Attributes - 1
         File.Delete()
      End If
Next

C'est nice comme truc ça, ça marche bien ?

Faut le lancer toi-même ou t'as un truc pour le lancer en auto tout les x temps ?

Ça marche niquel, faut juste savoir un truc pour le système de date.

Disons qu'on est le 14 Janvier à 12h00. Le paramètre d'âge maximal des fichiers est de 1 jour. Les fichiers datant du 13 Janvier de 00h00 à 11h59 ne seront pas supprimé, le script va remonter à tous les fichiers du 12 Janvier.

Je ne m'en suis pas encore servi mais je compte utiliser les Tâches planifiées de Windows (Démarrer > Accessoire > Outils Système). Après dans mon cas il ne me reste plus qu'a décider d'une date max d'âge de fichier avec mon tuteur, de trouver le moyen d'accéder à l'espace FTP (différent de l'accès d'un répertoire local par exemple) et enfin de créer une tâche planifiée pour exécuter le script tout les X jours.

Edit: J'ai effectué des test avec un petit outil très pratique capable de changer attributs de Dates de n'importe quel fichier (Date Création, Modif, dernier accès, heure, minutes, etc etc) et donc jme suis crée tout un dossier avec des bloc note de plein de dates différentes et PAF les bloc notes HAHA

Edit²: ha non ça y est j'ai trouvé comment nettoyer le FTP, avec un mapping (une sorte de raccourci)

Ouais ben le mapping c'est pas cool j'y arrive pas lol ^^

Si quelqu'un peut m'aider ...

Ben le mapping, si c'est comme ce que j'ai vu ici, c'est pas trop compliqué :

\\"ip serveur"\"nom de dossier partagé"

et paf ! Enfin bref si je veux accéder au dossier "public" sur le serveur "172.20.60.30" --> \\172.20.60.30\public

On peut le mettre dans une fenêtre "éxecuter" (touche windows+R) ou alors on fait clique droit sur le poste de travail puis "connecter un lecteur réseau" ou encore en ajoutant un favori réseau.

Après si c'est pas ça...

Non justement \\192.168.1.1\Dossier on appelle ça le chemin UNC et dans un script comme ça c'est pas possible ... Jme suis inscrit à Forum Hardware et j'ai demandé de l'aide, je verrais bien ce que ça donne

Problème résolu, j'ai abandonné le mapping et retiré la conversion des jours en integer et ça fonctionne.

Ah ok tu le voulais en invite de commande, si j'avais su ^^ Vu que j'ai des scripts pour ça :p

Je doisle voir pour les utilisateurs AD que je dois créer...

J'ai mis à jour le script dans mon premier message.

Edit : nan c'est niquel, C'EST OK !

On dirait des pgm de l'informatique Oo
vous avez l'air de faire des truc sympathique

xDay ya Henri qu'est passé ... Jlai ébloui avec mon script mdr ... il était tout content que j'ai fais du VBS haha

Lol bogoss moi y'a mouli qui est passez chen m'a decendu et a sucer la quequette a mohamed :/

enfin bref

xD

Sucer la quequette a Momo? Il le prend plus pour un terroriste alors? Ou ptetre qu'il aime ça :s

Je sais pas mais en tous cas je suis le seul a look des films et autres ^^
et vous sa ce passe vos stage?

Dite personnes n'a un projet pas trop long a faire a me passer ?