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 -
A voir également:
- Svp votre aide pour creer un vbscript
- Créer un compte google - Guide
- Créer un lien pour partager des photos - 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