Realisation d'un script VBS
ziko.1988
Messages postés
25
Statut
Membre
-
nirG95 Messages postés 319 Statut Membre -
nirG95 Messages postés 319 Statut Membre -
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
-
Bonjour,
Le nom du fichier c'est que des caractères ou caractères et chiffre ?
Cdlt. -
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. -
salut
mais ou est la commande pour le supprimer ?
sinon le code marche trés bien ;) -
Salut,
Tu remplaces :
msgbox "Le fichier " & oFl.Name & " est supprimer"
par :
oFSO.DeleteFile(oFl.Name)
Cdlt. -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Re,
ca marche pas : ( année ==> 2010 )
Erreur : Fichier introuvable -
-
