Realisation d'un script VBS

ziko.1988 Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
nirG95 Messages postés 292 Date d'inscription Statut Membre Dernière intervention - 21 août 2010 à 20:43

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

A voir également:

Realisation d'un script VBS
Script vidéo youtube - Guide
Vbs windows - Accueil - Optimisation
Mas script - Accueil - Windows
Ghost script - Télécharger - Polices de caractères
Script cmd - Guide

7 réponses

Réponse 1 / 7

nirG95 Messages postés 292 Date d'inscription Statut Membre Dernière intervention 32

Bonjour,

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

Cdlt.

Réponse 2 / 7

nirG95 Messages postés 292 Date d'inscription Statut Membre Dernière intervention 32

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.

Réponse 3 / 7

karirovax Messages postés 3221 Date d'inscription Statut Membre Dernière intervention 204

salut

mais ou est la commande pour le supprimer ?

sinon le code marche trés bien ;)

Réponse 4 / 7

nirG95 Messages postés 292 Date d'inscription Statut Membre Dernière intervention 32

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

Réponse 5 / 7

karirovax Messages postés 3221 Date d'inscription Statut Membre Dernière intervention 204

Re,

ca marche pas : ( année ==> 2010 )

Erreur : Fichier introuvable

Réponse 6 / 7

nirG95 Messages postés 292 Date d'inscription Statut Membre Dernière intervention 32

Bonjour,

oFSO.DeleteFile(stRep & "\" & oFl.Name)

Cdlt

karirovax Messages postés 3221 Date d'inscription Statut Membre Dernière intervention 204

Re:

merci beaucoup =)
ça marche ;)

Réponse 7 / 7

nirG95 Messages postés 292 Date d'inscription Statut Membre Dernière intervention 32

Pas de soucis. Bonne continuation.

Discussions similaires

calcul taux de realisation

recherche script "les visiteurs"

Faire une pause en VBS

Problème Avast "HTML:Script-inf"

Votre réponse

Discussions similaires