Integrer une variable dynamique

**jobar38** · 24/02/2009, 16h01

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** · 25/02/2009, 09h40

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** · 25/02/2009, 10h27

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** · 25/02/2009, 16h15

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** · 28/02/2009, 13h05

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** · 02/03/2009, 07h44

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.

**jobar38** · 05/03/2009, 08h11

je suis parti dans une autre direction mais j'ai toujours des problemes de récupération de variable (sous dossier)

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
 
Dim strComputer, strPath, Debug
strComputer = "."
strDrive = "E:"
strPath = "\\applic\\import\\"
Debug=True  '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 colFolders = objWMIService. _
    ExecQuery("Select * From Win32_Directory Where Name ='" & strDrive & strPath & "'")
 
For Each objFolder in colFolders
Set colFiles = objWMIService.ExecQuery _
    ("Select * From CIM_DataFile Where Path= '" & strDrive & strPath & "'")

j'ai le message d'erreur qui m'indique que le repertoire import est inexistant et en plus je ne sais pas où placer le "Next " dans la suite du script.

Ce n'est pas ma volonté qui va lacher mais mes nerfs.

**spantemonium** · 05/03/2009, 09h14

il n'est pas nécessaire de doubler les "\" dans le path, c'est sans doute pour ca qu'il ne trouve pas le chemin.

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
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim strComputer, strPath, Debug
strComputer = "."
strDrive = "E:"
strPath = "applic\import" 'j'ai retiré les \\ et le dernier \
Debug=True 'Debug=True pour afficher les msgbox, les fichiers ne seront pas supprimés
'Debug=False pas de msgbox, les fichiers seront supprimés
 
objStartFolder = strDrive & "\" & strPath
 
Set objFolder = objFSO.GetFolder(objStartFolder)
 
Set colFiles = objFolder.Files
For Each objFile in colFiles
    Wscript.Echo objFile.Name
Next

**jobar38** · 05/03/2009, 09h56

Tu as raison par contre maintenant j'ai un message d'erreur que je n'avais pas avant :

Ligne 21
Erreur : Cet objet ne gère pas cette propriété ou cette méthode: 'objFile.LastModified'

Voici maintenant mon script avec les modifes

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Set objFSO = CreateObject("Scripting.FileSystemObject")
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
 
objStartFolder = strDrive & "\" & strPath
 
Set objFolder = objFSO.GetFolder(objStartFolder)
 
Set colFiles = objFolder.Files
 
For Each objFile in colFiles
    Wscript.Echo objFile.Name
Next
 
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) 
 
       Else 
          If Debug=True Then _
             MsgBox  "Le fichier " &vbLf& objFile.Drive & _
                     objFile.Path & objFile.FileName & _
                     "." & objfile.Extension &vbLf& " ne sera pas supprimé car modifié le " & _
                     fnConversionDate(objFile.LastModified) &vbLf& _
                     Now & " - " & fnConversionDate(objFile.LastModified)  & " = " & _
                     dtDiffFile,vbInformation,"Verif DELETE=NON"
       End If
   Next
Else
   If Debug=True Then MsgBox "le répertoire " & strPath & " n'existe pas" 
End If
Set objWMIService = Nothing
Set colFiles = Nothing
Function fnConversionDate(strDateUTC)
fnConversionDate = Mid(strDateUTC, 7, 2) & "/" & Mid(strDateUTC, 5, 2) & "/" & _
                   Left(strDateUTC, 4) & " " & Mid(strDateUTC, 9, 2) & ":" & _
                   Mid(strDateUTC, 11, 2) & ":" & Mid(strDateUTC, 13, 2) 
End Function

**ProgElecT** · 05/03/2009, 12h53

Code :

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

objFile.LastModified

il me semble bien que

Code :

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

objFile.DateLastModified

**jobar38** · 05/03/2009, 15h55

ça ne marche pas mieux et en plus contrairement à ce que j'ai affirmé au par avant j'ai toujours le message d'erreur "le repertoire applic\import n'existe pas "

**ced600** · 06/03/2009, 09h46

pour les histoires de syntaxes :

http://msdn.microsoft.com/en-us/libr...af(VS.85).aspx

Est ce que le répertoire existe bien sur la machine ?
Essaye avec un \ à la fin.
Regarde si tu ne t'es pas tromper dans l'écriture.

Tu nous dis que tu as l'erreur, mais tu constates bien que le code suivant ne t'affiche rien ?

Code :

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

1
2
3
For Each objFile in colFiles
    Wscript.Echo objFile.Name
Next

**jobar38** · 08/03/2009, 11h22

Je reprends donc depuis le debut.

Mon code fonctionne bien lorsque je renseigne le chemin complet dans le path.

Lorsque je veux à ajouter la recherche à l'ensemble des sous repertoires du parent "strPath" c'est là que ça se gate!
j'ai bien essayé avec un \ à la fin mais rien à faire.

Plusieurs solutions s'offrent moi:
-je réécris le code complet
-je charge les sous dossiers à partir d'un fichier text
-je laisse tomber (solution de facilité)
-je prie et j'éspère qu'un matin il se mette à fonctionner (solutin de difficulté)

**spantemonium** · 09/03/2009, 09h22

le code que je t'avais posté fonctionne ...

faudrait voir si y'a pas une erreur lorsque tu l'a intégré au tien.

**ced600** · 09/03/2009, 19h35

Envoyé par jobar38

Je reprends donc depuis le debut.

Mon code fonctionne bien lorsque je renseigne le chemin complet dans le path.

Lorsque je veux à ajouter la recherche à l'ensemble des sous repertoires du parent "strPath" c'est là que ça se gate!
j'ai bien essayé avec un \ à la fin mais rien à faire.

Plusieurs solutions s'offrent moi:
-je réécris le code complet
-je charge les sous dossiers à partir d'un fichier text
-je laisse tomber (solution de facilité)
-je prie et j'éspère qu'un matin il se mette à fonctionner (solutin de difficulté)

Tu n'as pas répondu à ma question.

**jobar38** · 10/03/2009, 15h11

Pour te répondre, je me suis inspiré de ta devise:

Pourquoi faire compliqué lorsque l'on peut faire encore plus compliqué

Et donc j'ai fait plus simple en refaisant le script complet.

Maintenant tout fonctionne et je n'ai pas eu besoin d'attendre une intervention divine.

Merci à tous les intervenants

**ced600** · 10/03/2009, 19h48

lol

Repartir sur des bases seines pour un script qui ne fonctionne pas règle souvent pas mal de problème.

Integrer une variable dynamique

VBScript

Discussions similaires

Partager

Partager