IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Integrer une variable dynamique


Sujet :

VBScript

  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut Integrer une variable dynamique
    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)

  2. #2
    Membre expérimenté
    Inscrit en
    Mai 2008
    Messages
    189
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 189
    Par défaut
    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 ?

  3. #3
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    Février 2006
    Messages
    1 302
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 1 302
    Par défaut
    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:
    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)
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut
    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.

  5. #5
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    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/

  6. #6
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut
    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.

  7. #7
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut
    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.

  8. #8
    Membre expérimenté
    Inscrit en
    Mai 2008
    Messages
    189
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 189
    Par défaut
    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

  9. #9
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut
    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

  10. #10
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 130
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 130
    Par défaut
    il me semble bien que
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    objFile.DateLastModified
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

  11. #11
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut
    ç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 "

  12. #12
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    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

  13. #13
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut
    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é)

  14. #14
    Membre expérimenté
    Inscrit en
    Mai 2008
    Messages
    189
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 189
    Par défaut
    le code que je t'avais posté fonctionne ...

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

  15. #15
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Citation Envoyé par jobar38 Voir le message
    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.

  16. #16
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut
    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

  17. #17
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    lol


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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Afficher une variable dynamique dans la barre des taches de windows
    Par mustang-ffw02 dans le forum Windows Forms
    Réponses: 16
    Dernier message: 27/05/2007, 23h24
  2. Réponses: 10
    Dernier message: 02/02/2007, 00h02
  3. Ajout d'une variable dynamique de type pointeur
    Par mmooaa dans le forum Langage
    Réponses: 3
    Dernier message: 02/01/2007, 23h04
  4. integrer une variable dans un formulaire html
    Par oops! dans le forum Langage
    Réponses: 3
    Dernier message: 08/09/2006, 19h48
  5. Enregistrement d'une variable dynamique dans un fichier
    Par zarbydigital dans le forum Langage
    Réponses: 13
    Dernier message: 24/12/2005, 21h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo