realisation d'un script VBS

bonjour,
bon j'ai un ensemble de fichier excel sous le nom (zzz201003121987) ou (rthes2010050613265)......etc,et je voulais un script qui supprime les fichier qui ont une date <2010,j'ai fais un script VBS mais seulement un nom definit,voila le

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Set FileSystem = CreateObject ("Scripting.FileSystemObject") Set Folder = FileSystem.GetFolder (WScript.Arguments(0))   RemoveFiles Folder   Sub RemoveFiles (Folder) Set Files = Folder.Files   For Each File In Files If True Then If DateDiff ("m", Mid(File.Name,17,4) & "/" & Mid(File.Name,21,2) & "/" & Mid(File.Name,23,2) , Now) > 12 Then WScript.Echo "la suppression du fichier : " & File.Name File.Delete (True) End If End If Next End Sub

---

Je sais pas comment faire pour faire supprimer les fichiers qui ont une date <2010 sans savoir le nom du fichier

Salut ziko
Tout d'abord, il faut éviter les noms de variables identiques aux mots réservés, objets, membres (tels que File,Files,Folder...) du langage pour éliminer toute confusion.

Pour ta demande, tu peux faire le test sur la date de création ou la date de modification du fichier. Voici un bout de

Code:

---

1 2 3 4 5 6 7 8 9

dim fso,f,fd,s set fso=CreateObject("Scripting.FileSystemObject") Set fd=fso.getfolder("C:\temp") s="" for each f in fd.files if mid(f.datelastmodified,1,10) <= "17/07/2010" then _ s=s+f.name + " : " + cstr(f.Datecreated) +" == "+ cstr(f.datelastmodified) + vbcrlf next msgbox s

---

que tu peux adapter selon ton besoin.