Discussion :

[darksnake]

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 :

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
 
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

[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/

[darksnake]

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 :

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
 
 
 
   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

[ced600]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 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.

[darksnake]

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