Recherche de fichier en vbscripts

Question

Comment en vbcript ou dos faire la recherche suivantes :

Supprimer les fichiers de plus de 7 jours de creations

browser64 · Answer

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

cs_JMO · Answer

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

Recherche de fichier en vbscripts

2 réponses

Votre réponse