realisation d'un script VBS

Question

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

Configuration: Windows XP / Internet Explorer 6.0

nirG95 · Answer

Bonjour,

Le nom du fichier c'est que des caractères ou caractères et chiffre ?

Cdlt.

nirG95 · Answer

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.

karirovax · Answer

salut

mais ou est la commande pour le supprimer ? 

sinon le code marche trés bien ;)

nirG95 · Answer

Salut,

Tu remplaces :

msgbox "Le fichier " & oFl.Name & " est supprimer"

par :

oFSO.DeleteFile(oFl.Name)

Cdlt.

karirovax · Answer

Re,

ca marche pas : ( année ==> 2010 )

Erreur : Fichier introuvable

nirG95 · Answer

Bonjour,

oFSO.DeleteFile(stRep & "\" & oFl.Name)

Cdlt

nirG95 · Answer

Pas de soucis. Bonne continuation.

Realisation d'un script VBS

7 réponses

Discussions similaires

Newsletters