Svp votre aide pour creer un vbscript

Résolu
denis30a Messages postés 2 Statut Membre -  
 Utilisateur anonyme -
Bonjour,

voila mon probleme

je dois creer un script pour effacer des fichier du dossier backup.

Dans ce dossier jai des fichiers

daily backup incremental (sep 09 2007 10.08pm).nb7
documents and settings (sep09 2007 5.06pn).nb7
SVN Daily (sep 21 2007 5.30am).nb7
je dois supprimer seulement les fichiers

doccument and settings et SNV Daily plus agée de 7 jours

votre aide sera grandement apprécié.

Denis30a@hotmail.com
Configuration: Windows Vista
Internet Explorer 7.0

3 réponses

  1. Utilisateur anonyme
     
    Bonjour,

    suggestion : 

    '-----------------------------------------------------------------------------------------------
' Fichier VBScript : DétruireFichier.vbs
'-----------------------------------------------------------------------------------------------
'
  Const cteRepSource = "C:\Back-Up\"        ' À modifier
  Const cteFicCible = "SVN Daily"
    
  Dim objFSO, objFichier, objRepertoire

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objRepertoire = objFSO.GetFolder(cteRepSource)

  ' Destruction du (es) fichier(s)
  If (objRepertoire.Files.Count > 0) Then
    For Each objFichier In objRepertoire.Files
      If (InStr(1, objFichier.Name, cteFicCible, 1) > 0) Then
        If (objFichier.DateCreated < (Now - 7)) Then
          objFSO.DeleteFile (cteRepSource & "\" & objFichier.Name)
        End If
      End If
    Next
  End If
  
  Set objFSO = Nothing
  Set objRepertoire = Nothing
  
WScript.Quit(0)
'-----------------------------------------------------------------------------------------------

    Lupin
    0
  2. denis30a Messages postés 2 Statut Membre
     
    wow! merci!!

    je ne m'attendais pas a etre repondu si rapidement!

    j'apprecie grandement ton aide lupin :)
    0
  3. Utilisateur anonyme
     
    re:

    bienvenue, j'avais un script tout fait sous la main !

    Bonne continuité

    Lupin
    0