Svp votre aide pour creer un vbscript Résolu/Fermé

Question

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

Utilisateur anonyme · Answer

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

denis30a · Answer

wow! merci!!

je ne m'attendais pas a etre repondu si rapidement!

j'apprecie grandement ton aide lupin :)

Utilisateur anonyme · Answer

re:

bienvenue, j'avais un script tout fait sous la main !

Bonne continuité

Lupin

Svp votre aide pour creer un vbscript

3 réponses

Discussions similaires