Recherche de fichier en vbscripts

famillelescure
Messages postés
10
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
15 décembre 2006
- 8 déc. 2006 à 12:01
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
- 8 déc. 2006 à 12:19
Comment en vbcript ou dos faire la recherche suivantes :

Supprimer les fichiers de plus de 7 jours de creations

2 réponses

browser64
Messages postés
112
Date d'inscription
dimanche 24 avril 2005
Statut
Membre
Dernière intervention
5 décembre 2010

8 déc. 2006 à 12:13
Bonjour,

As-tu pris le temps de regarder les posts sur vbfrance.....ils sont nombreux pourtant, je t'invite à voir celui-ci.

http://www.vbfrance.com/codes/SUPPRIME-FICHIERS-DATANT-PLUS-15-JOURS_33195.aspx
0
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
8 déc. 2006 à 12:19
 Bonjour à tous

Pour les questions concernant le vbs, ne pas oublier le thème "Thèmes / Visual Basic 6 / Langages dérivés / VBScript ".

Option Explicit
Dim Path
Path  = "d:"



MsgBox ShowFolderList(Path),vbInformation,"Fichiers supprimés du 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)
    'If fso.GetExtensionName(fichiers) = "txt" Then
       fdate = f.DateLastModified  ' DateCreated ou DateLastAccessed ou DateLastModified
       fname = f.Name
       dtDiffFile = DateDiff("d", Now, fdate)
       If dtDiffFile <= -7 Then
'         MsgBox  "Le fichier " & Path & fname & " sera supprimé car créé le " & fdate
          strListe = strListe & vbcrlf & fname & " " & fdate
'         fso.DeleteFile(Path & fname)
          Else
'         MsgBox "Le fichier " & Path & fname & " ne sera pas supprimé car créé le " & fdate
       End If
   'End If
Next
ShowFolderList = "Fichiers supprimés" &vbCrLf&"et"&vbCrLf&_
                 "DateLastModifiedModified > 7 jours"&vbCrLf&vbCrLf& strListe
Set fso = Nothing
Set Dossiers = Nothing
Set f = Nothing
End Function



jean-marc
0