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
A voir également:
- Realisation d'un script VBS
- Vbs windows - Accueil - Optimisation
- Script vidéo youtube - Guide
- Mas script - Accueil - Windows
- Ghost script - Télécharger - Polices de caractères
- Script cmd - Guide
7 réponses
Bonjour, n'ayant pas de réponse je vais quand même mettre ma solution
Cdlt.
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,
Tu remplaces :
msgbox "Le fichier " & oFl.Name & " est supprimer"
par :
oFSO.DeleteFile(oFl.Name)
Cdlt.
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
