Discussion :

[ziko.1988]

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 :

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

[l_autodidacte]

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 :

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

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.