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