Jeannotat
Messages postés2Date d'inscriptionvendredi 26 mars 2004StatutMembreDernière intervention 4 novembre 2005
-
4 nov. 2005 à 14:34
cs_jeanmarc
Messages postés34Date d'inscriptionmardi 18 juin 2002StatutMembreDernière intervention22 novembre 2005
-
4 nov. 2005 à 16:27
Bonjour,
Est-ce que quelqu'un pourrais me dire le code pour supprimer tous les fichiers d'un lecteur (ex: E:\)
,contenu dans plusieurs niveaux de répertoire, antérieurs à une date précise.
cs_jeanmarc
Messages postés34Date d'inscriptionmardi 18 juin 2002StatutMembreDernière intervention22 novembre 2005 4 nov. 2005 à 16:27
Bonjour,
Exemple, simple, en VBS, mais qui peut-être inséré dans VBA.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 1) Tous les jours ouvrés, sur GCOS7, via l'automate SKEmatix HBCM,
' création de x fichiers (CAST-CRESDE-CDF vl=%aaqqqln)
' 2) Transfert des fichiers de GCOS7/Diane XTA63 vers la station ARNEB,
' dans le répertoire d:\KRNSDE\
' Nom des fichiers : SDE_yyy-aaqqq
' 3) Ce code est planifié dans "Planificateurs de tâches" sur
' la station ARNEB. Il a pour but de supprimer les fichiers
' dont la date de modification est antérieure de 5 jours
' de la date machine
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Path
Path = "d:\KRNSDE"
MsgBox ShowFolderList(Path),vbmessage,"Fichiers présents dans le répertoire"
Function ShowFolderList(strPath)
Dim fso, Dossiers, fic, fichiers, strListe, f, fdate, fname, dtDiffFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(path)
Set fic = Dossiers.Files
For Each fichiers in fic
Set f = fso.GetFile(fichiers)
fdate = f.DateLastModified
fname = f.Name
dtDiffFile = DateDiff("d", Now, fdate)
If dtDiffFile <= -5 Then
MsgBox "Le fichier " & Path & fname & " sera supprimé car créé le " & fdate
' fso.DeleteFile(Path & fname)
Else
MsgBox "Le fichier " & Path & fname & " ne sera pas supprimé car créé le " & fdate
End If
strListe = strListe & vbcrlf & vbcrlf & fname & " " & fdate
Next
ShowFolderList = strListe
End Function