Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

Svp votre aide pour creer un vbscript

Dernière réponse le 30 sep 2007 à 12:59:39 denis30a, le 28 sep 2007 à 21:51:06

Signaler ce message aux modérateurs

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

Meilleures réponses pour « Svp votre aide pour creer un vbscript » dans :

Introduction à VBScript Voir Présentation de VB Script VBScript (aussi appelé Visual Basic Scripting Edition) est un sous-ensemble du langage Visual Basic for Applications (VBA), un langage propriétaire de Microsoft prévu pour être intégré aux produits Microsoft Office©,...

[VBSCRIPT]lire chaque ligne dans un fichier Voir

Créer un programme en VB Voir

[MSN Messenger] Créer une adresse MSN Voir

Créer une adresse Hotmail.fr VoirPour créer un compte hotmail (@hotmail.fr), il suffit de créer un compte .NET passport en procédant à l'inscription via cette adresse Des informations personnelles vous concernant sont alors demandées par le service de messagerie de Microsoft. Il...

Création d'image Système (Ghost) VoirCréer une image (ghost) de partition 1 - Intérêt 2 - Pré-requis 2.1 - Explication 2.2 - Opportunités des partitions 2.3 - Mise à jour des images 2.3.1 - Image incrémentale : intéressant mais dangereux ! 2.3.2 - Image incrémentale et...

Comment creer un fichier txt en VB6 Voir

Créer programme en VB qui se lance o demarage Voir

Créer un fichier en asp Voir

Télécharger The Logo Creator Voir

Télécharger LC ISO Creator VoirLC ISO Creator est très simple: Il permet de créer un fichier .ISO à partir de vos CD. Cela vous permet ensuite d'utiliser ces fichiers ISO pour les graver, utiliser un logiciel d'émulation de CD (pour ne plus avoir à utiliser le CD original) ou...

Télécharger Carte d'anniversaire - Solutions CréaFuté Voir

Creative Live! Cam Optia Pro Voir

Créer un réseau local VoirPourquoi mettre en place un réseau local? Lorsque vous disposez de plusieurs ordinateurs, il peut être agréable de les connecter afin de créer un réseau local (en anglais LAN, abréviation de Local Area Network). La mise en place d'un tel réseau...

SQL - Création de table VoirLe SQL, comportant un langage de définition de données (LDD), permet de créer des tables. Pour cela, il utilise le couple de mots clés CREATE TABLE. La création de tables Le création de tables se fait à l'aide du couple de mots-clés CREATE...

Objet FileSystemObject (FSO) VoirFileSystemObject L'objet FileSystemObject (FSO) permet de manipuler le système de fichiers de Windows. L'utilisation du modèle d'objet FileSystemObject s'effectue en créant une instance de l'objet Scripting.FileSystemObject l'intermédiaire de la...

Posez votre question Répondre

Lupin.A, le 29 sep 2007 à 13:36:47

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

Répondre à Lupin.A

denis30a, le 30 sep 2007 à 01:38:23

Wow! merci!!

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

j'apprecie grandement ton aide lupin :)

Répondre à denis30a

Lupin.A, le 30 sep 2007 à 12:59:39

Re:

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

Bonne continuité

Lupin

Répondre à Lupin.A

Posez votre question Répondre