Supprimer un dossier antérieur a 2 jours

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Supprimer un dossier antérieur a 2 jours

HotSurfeur

Salut voilà j'aimerais supprimer un dossier de backup qui serait antérieur a deux jours.

A savoir que se dossier contient des sous dossiers et des fichiers qui on tous la même date de création.

Pour le moment j'ai ça :

Code :

Dim Fso
Dim Directory
Dim Modified
Dim Files
Set Fso = CreateObject("Scripting.FileSystemObject" )
Set Directory = Fso.GetFolder("C:\backup" )
Set Files = Directory.Files
For Each Modified in Files
If DateDiff("D", Modified.DateLastModified, Now) > 7 Then Modified.Delete
Next

Ca efface seulement les fichiers antérieur a deux jours.

En gros il me faut la meme chose mais pour les dossiers avec tout ce qu'ils contienent...

Message édité par HotSurfeur le 06-06-2006 à 16:31:01

Publicité

kiki29

Adapter d'un post Excel que j'ai fait pour liste fichiers dans dossier/sous dossiers
Sous Excel il faut référencer MS Scripting Runtime : VBA Outils | Références
pour sa retranscription en pur VBS je te laisse la main

Sub Balayage()
Const Dossier As String = "C:\Backup\"
Effacer Dossier, True
End Sub

Sub Effacer(ByVal Dossier As String, ByVal InclureSousDossiers As Boolean)
Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder, SousDossier As Scripting.Folder
Dim Fichier As Scripting.File

Set FSO = New Scripting.FileSystemObject
Set DossierSource = FSO.GetFolder(Dossier)

For Each Fichier In DossierSource.Files
If DateDiff("D", Fichier.DateLastModified, Now) >7 Then Fichier.Delete
Next Fichier

If InclureSousDossiers Then
For Each SousDossier In DossierSource.SubFolders
Effacer SousDossier.Path, True
If SousDossier.Files.Count = 0 Then SousDossier.Delete
Next SousDossier
End If

Set Fichier = Nothing
Set DossierSource = Nothing
Set FSO = Nothing
End Sub

Message édité par kiki29 le 07-06-2006 à 07:34:28

Mups

Bonjour,

J'aimerai savoir si on peut adpater le code de HotSurfeur pour deleter les fichier de type XLS uniquement. En effet dans mon repertoire j'aimerai supprimer les fichier vieux de 5 jours mais uniquement les fichier de type Excel et garder les fichier de type txt.

Mups

kiki29

If DateDiff("D", Modified.DateLastModified, Now) > 5 And FSO.GetExtensionName(Modified.DateLastModified) = "xls" Then ...

Message édité par kiki29 le 07-08-2006 à 19:16:36

imparator42

Je suis nouveau ici mais bon ,
j'ai aussi un code de ce type ;
et je voudrais savoir si ce code marchait avec les sous-dossier parce que mon code cause des problème snif !!
Merci de notre aide.

Elmoricq

Modérateur

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Supprimer un dossier antérieur a 2 jours

Sujets relatifs
parcourir un dossier (je le relance)	Supprimer tous repertoires "$NtUninstallKBxxxxxx" dans un Batch
comment supprimer complètement une page web mise en ligne	Supprimer guillemets
[perl] supprimer les emails bounces (retour/erreur) d'une base mysql	Peux ton supprimer les ; et retours charriots d'un champs ?
lister et compter les fichiers dans un dossier	Supprimer une ligne d'un tableau
supprimer premier et dernier caractère d'un fichier	[PHP/MySql] Supprimer une table SQL temp dans une session PHP
Plus de sujets relatifs à : Supprimer un dossier antérieur a 2 jours

Page générée en 0.045 secondes