Discussion :

[jobar38]

Bonjour,

Je débute et je voudrais savoir comment intégrer une variable dynamique dans le path de mon script vbs.

Je souhaite supprimer les fichiers de plus de 5 jours présents dans les sous dossiers de mon strPath. (pour le del c'est ok)

Ce script doit être utilisé sur plusieurs serveurs avec le même path mais avec des sous dossiers différents.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim strComputer, strPath, Debug
strComputer = "."
strDrive = "E:"
strPath = "\\applic\\import\\"
 
Debug=False  'Debug=True pour afficher les msgbox, les fichiers ne seront pas supprimés
            'Debug=False pas de msgbox, les fichiers seront supprimés
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("Select * From CIM_DataFile Where Drive = '" & strDrive & "'" & "And Path = '" & strPath & "'")
 
If colFiles.Count <> 0 Then
   For Each objFile in colFiles
       dtDiffFile = DateDiff("d", Now, fnConversionDate(objFile.LastModified))
 
       If dtDiffFile =< -5 Then ' 5 pour nombre de jours
          If Debug=True Then _
             MsgBox  "Le fichier " &vbLf& objFile.Drive &vbLf& _
                     objFile.Path & objFile.FileName & _
                     "." & objfile.Extension &vbLf& " sera supprimé car modifié le " & _
                     fnConversionDate(objFile.LastModified) &vbLf& _
                     Now & " - " & fnConversionDate(objFile.LastModified) & " = " & _
                     dtDiffFile,vbCritical,"Verif DELETE=OUI"
 
          If Debug=False Then objFile.Delete(objFile.Path & objFile.FileName)

[spantemonium]

Je n'ai pas bien compris ton problème.

tu veux modifier ta variable strPath ?
Stocker une variable dans le Path de ton script (dossier qui lance le script) ?


pour modifier ta variable Path, c'est en fonction de quoi ? une saisie utilisateur, un fichier d'entrée, tous les sous-dossiers ?

[omen999]

salut,
cette phrase

avec le même path mais avec des sous dossiers différents

n'est pas très claire

s'il s'agit simplement d'ajouter au chemin commun un chemin variable:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strPath & strSubDos

où strSubDos contient le chemin variable selon les serveurs et peut être défini notamment par un paramètre de ligne de commande (voir l'objet WshArguments dans la doc)

[jobar38]

Ajourdhui je verifie uniquement les fichiers du path qui est déclaré.

Demain, je veux que la vérification se fasse sur l'ensemble des sous dossiers qui dépendent de ce path.

Il s'agit simplement d'ajouter au chemin commun un chemin variable:

Ex: Serveur A =>\\path\\1\\ Serveur B =>\\path\\3\\
\\2\\ \\4\\
\\3\\
je verifie les fichiers des dossiers 1.2.3 de A et 3.4 de B avec le même script

Désolé, si je n'utilise pas les bons termes.

[ced600]

Dans ce cas je te conseil de passer par un fichier de configuration par serveur.

Dans ce fichier tu mets sur chaque ligne les sous répertoires à examiner.
Tu lis le fichier avec ton script au démarrage, et tu récupères le chemin des sous dossier dans un tableau.
Pour chaque ligne du tableau tu effectues ta vérification.

Si sur chaque serveur que tu examines tu vérifie tous les sous dossier de ton répertoire parent, alors tu peux utiliser l'objet shell pour obtenir les sous dossier du répertoire parent.

Regarde la FAQ pour FileSystemObjet et WshShell : http://vb.developpez.com/faqvbs/

[jobar38]

je ne veux pas passer par un fichier car même si la racine du chemin ne change pas cela m'oblige à modifier le fichier à chaque fois qu'un nouveau sous dossier est créé.

je te remercie pour le lien et je vais voir ce que je peux faire avec l'objet shell.