Svp votre aide pour creer un vbscript
Résolu
denis30a
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Utilisateur anonyme -
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
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
A voir également:
- Svp votre aide pour creer un vbscript
- Créer un lien pour partager des photos - Guide
- Créer un compte google - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un compte gmail - Guide
- Créer un compte instagram sur google - Guide
3 réponses
Bonjour,
suggestion :
Lupin
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