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