Integrer une variable dynamique

Version imprimable

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:

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)

25/02/2009, 09h40
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 ?
25/02/2009, 10h27
omen999

salut,
cette phrase

Citation:

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:

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) :faq:
25/02/2009, 16h15
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.
28/02/2009, 13h05
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/
02/03/2009, 07h44
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.

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

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.

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:

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

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:

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

05/03/2009, 12h53
ProgElecT

Code:

objFile.LastModified

il me semble bien que 8-)

Code:

objFile.DateLastModified
05/03/2009, 15h55
jobar38

ç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 "
06/03/2009, 09h46
ced600
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:

1 2 3 For Each objFile in colFiles Wscript.Echo objFile.Name Next
08/03/2009, 11h22
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é)
09/03/2009, 09h22
spantemonium

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

faudrait voir si y'a pas une erreur lorsque tu l'a intégré au tien.
09/03/2009, 19h35
ced600

Citation:

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.
10/03/2009, 15h11
jobar38

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

Citation:

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

:D
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.:yaisse2:

Merci à tous les intervenants
10/03/2009, 19h48
ced600

lol

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