Bonjour,
Nous avons un script vbs, qui nous sert a supprimmer des fichiers obsolètes dans un dossier. Il fonctionne tres bien mais uniquement dans le dossier spécifié et nous aurions besoin de le modifier pour que les sous dossier soit egalement analysé.
Voici ci dessous mon script, pouvez vous me dire ce que je dois modifier ?
Merci pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 'Les declarations 'Repertoire ou sont stockes les fichiers DossierSauvegarde = "D:\Scanner\" 'Nombre de jours de conservation des Fichiers AgeMaximalFichiers = "8" 'Comptage des fichiers effaces NbFichiersEffaces = 0 'Initialisation des objets Set fso = CreateObject("Scripting.FileSystemObject" ) 'On verifie que le repertoire de sauvegarde existe If (myName = Winrep = fso.FolderExists(DossierSauvegarde)) = False Then Erreur = MsgBox("Le dossier de sauvegarde est introuvable !" ) Wscript.Quit End If 'On recupere la date système DateSysteme = Date 'Suppression des fichiers trop anciens Set Folder = fso.Getfolder(DossierSauvegarde) For Each File In Folder.Files If (DateDiff("d", File.DateLastModified, DateSysteme) > CInt(AgeMaximalFichiers)) Then 'On verifie qu'ils ne sont pas en lecture seule If File.Attributes And 1 Then File.Attributes = File.Attributes - 1 File.Delete() NbFichiersEffaces = NbFichiersEffaces + 1 End If Next 'On affiche un joli message MsgBox (Cstr(NbFichiersEffaces) + " fichiers ont ete effaces" )
Partager