[Vbs] effacer tous les fichier d'un repertoire

Version imprimable

bonjour a tous, jai cree un script (que je veut basique) pour effacer tous les fichiers et repertoires plus vieux que 15 jr a partir de l'execution du Script
jai fait sa :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Set FSO = CreateObject("Scripting.FileSystemObject") Set objFSO = CreateObject("Scripting.FileSystemObject") set folder = FSO.GetFolder ("D:\dossier lambda") For Each subfolders in folder.subfolders If DateDiff("D", subfolders.DateLastModified, now) > 15 Then objFSO.DeleteFolder subfolders End If Next For Each objfile in folder.subfolders Set objfile = objFSO.GetFile(objFile.Name) If DateDiff("D", objfile.DateLastModified, now) > 15 Then objFSO.DeleteFile objFile End If Next
le premier for each se deroule sans probleme (pour effacer les dossiers)

mais le 2em ne veut pas marcher (pour cette fois ci les fichiers) !
je n'ai aps d'idée, on dirait qu'il ne s'execute pas

Silvouplé un peut d'aide je galére en ce moment :oops:

29/09/2006, 17h02
ced600

C'est normal que cela ne marche pas, folder.subfolders te renvoie une collection d'objet folders, chacun de ces objets correspondant à un sous répertoire du répertoire parent (celui que tu récupère avec GetFolder).
Je te passe un lien qui donne des exemples de script sur la gestion des répertoires et des fichiers windows :
http://www.activexperts.com/activmon.../filesfolders/

Youpiiii

c'est bon sa marche !! merci pour les sources mais jai fait autrement, enfin sa marche c'est le principal !!

je met la source au cas ou sa interse qqn

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
 
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   set folder = FSO.GetFolder ("D:\SVG_PERSO")
   Set Dossiers = fso.GetFolder(folder)
   Set fic = Dossiers.Files
 
    For Each subfolders in folder.subfolders
        If DateDiff("D", subfolders.DateLastModified, now) > 10 Then
        objFSO.DeleteFolder subfolders
        End If
    Next
 
 
    For Each objFile in fic
        Set f = fso.GetFile(objfile)
            If DateDiff("D", objfile.DateLastModified, now) > 10 Then
            objFSO.DeleteFile f
            end if
    next

04/10/2006, 10h34
ced600

Cela marche mais normalement la variable Dossiers est inutile, il te suffirait de faire :

Code:

Set fic = folder.Files

Mais la si je comprends bien le code, tu ne supprimes que les fichiers de plus de 15 jours du répertoire parent. Pas ceux des sous dossiers.
04/10/2006, 14h33
darksnake

merki

merci pour l'oubli une fois que sa a marhcer a coup sur je n'ai rien touché "quand sa marche ne touche pas"

ce script effacer tt les fichier + vieux que X jour ( ou année mois heure seconde ) et aussi les dossiers .

c'est pour vider a intervale regulier un dossier partagé pour tous les utilisateur un "commun" et qui commence a devenir volumineux

Donc tous les 15jr pfouuut ! sa fait du vide