Realisation d'un script VBS
Bonjour,
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:
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
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:
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
7 réponses
-
Pas de soucis. Bonne continuation.
-
Bonjour,
oFSO.DeleteFile(stRep & "\" & oFl.Name)
Cdlt -
Re,
ca marche pas : ( année ==> 2010 )
Erreur : Fichier introuvable -
Salut,
Tu remplaces :
msgbox "Le fichier " & oFl.Name & " est supprimer"
par :
oFSO.DeleteFile(oFl.Name)
Cdlt. -
salut
mais ou est la commande pour le supprimer ?
sinon le code marche trés bien ;) -
Bonjour, n'ayant pas de réponse je vais quand même mettre ma solution
Dim stRep 'Nom du répertoire à parcourir Dim oFSO,oFl Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = "Ton répertoire" If oFSO.FolderExists(stRep) Then annee = inputbox("Entrer l'année des fichiers à supprimer.") For each oFl in oFSO.GetFolder(stRep).Files i=1 Do While not isnumeric(mid(oFl.Name,i,1)) i = i + 1 Loop if mid(oFl.Name,i,4) = annee then msgbox "Le fichier " & oFl.Name & " est supprimer" end if Next Else Msgbox "Veuillez changer le répertoire de recherche." End If
Cdlt. -
Bonjour,
Le nom du fichier c'est que des caractères ou caractères et chiffre ?
Cdlt.
