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 :

Recherche de fichiers


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Septembre 2006
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : Septembre 2006
    Messages : 54
    Par défaut Recherche de fichiers
    Salut à tous!
    Je débute le VBscript puisque je dois en faire pour le boulot. Je vous explique mon probleme.
    J'effectue une recherche de fichier par extension en l'occurence les PST. Elle marche mais cette recherche s'effectue sur tous les supports (tous les disques). Je veux uniquement rechercher les fichiers sur le disque C.
    Voici mon code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     strComputer = "." 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    Set colFiles = objWMIService.ExecQuery _ 
    ("Select * from CIM_DataFile where Extension = 'pst'") 
    For Each objFile in colFiles 
    Wscript.Echo objFile.Name 
    Next
    Autre question, est-il possible d'afficher les resultats de la recherche autre que sur des msgbox, une fenetre avec tous les noms de fichiers par exemple et pouvoir ainsi les choisir (case à cochée par ex) pour les sauvegardés, qui est le but de mon utilitaire.
    Merci d'avance pour vos réponses!

  2. #2
    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
    Essaye ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    strComputer = "." 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    Set colFiles = objWMIService.ExecQuery _ 
    ("Select * from CIM_DataFile where Extension = 'pst' And PATH = 'c:\toto\'") 
    For Each objFile in colFiles 
    Wscript.Echo objFile.Name 
    Next

  3. #3
    Membre averti
    Inscrit en
    Septembre 2006
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : Septembre 2006
    Messages : 54
    Par défaut
    Voila, j'ai rajouté le PATH = 'c:' mais il cherche uniquement dans la racine et non ds tous les repertoires sous c:
    J'ai tenté de rajouté aussi le \ , ce qui donne 'c:\' mais sans succès.
    Sinon, as tu une idée pour qu'il me recherche les fichiers qui ont une date de création inférieur à 1 ans. Je te remercie!

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    strComputer = "." 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    Set colFiles = objWMIService.ExecQuery _ 
    ("Select * from CIM_DataFile where Extension = 'doc' and PATH = 'c:'") 
    For Each objFile in colFiles 
    Wscript.Echo objFile.Name 
    Next
    Pour info, il continue à chercher ailleur aussi puis il cherche sur le lecteur disquette.

  4. #4
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    essai avec like...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    .. And PATH like 'c:\%'
    % ou * .. à voir

  5. #5
    Membre averti
    Inscrit en
    Septembre 2006
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : Septembre 2006
    Messages : 54
    Par défaut
    Voila, l'erreur que j'ai bill en testant tes solutions :


  6. #6
    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
    essaye comme cela :
    On ne sait jamais.

    Voici un petit site qui devrait t'aider pour ce que tu fait :
    http://www.activexperts.com/activmon...folders/files/

    J'ai trouvé sur le site ci-dessus, cela :
    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
    Enumerating File Properties
    Demonstration script that uses the FileSystemObject to enumerate the properties of a file.
    Script must be run on the local computer.
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile("c:\windows\system32\scrrun.dll")
    Wscript.Echo "Date created: " & objFile.DateCreated
    Wscript.Echo "Date last accessed: " & objFile.DateLastAccessed
    Wscript.Echo "Date last modified: " & objFile.DateLastModified
    Wscript.Echo "Drive: " & objFile.Drive
    Wscript.Echo "Name: " & objFile.Name
    Wscript.Echo "Parent folder: " & objFile.ParentFolder
    Wscript.Echo "Path: " & objFile.Path
    Wscript.Echo "Short name: " & objFile.ShortName
    Wscript.Echo "Short path: " & objFile.ShortPath
    Wscript.Echo "Size: " & objFile.Size
    Wscript.Echo "Type: " & objFile.Type
    Après avoir trouve tous les fichiers que tu recherche, tu peux regarder un à un l'attribut de création (DateCreated) de ces fichiers et en faire ce que tu veux.
    Il doit y avoir mieux, mais pour l'instant c'est dèja ça, non ?

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

Discussions similaires

  1. [Système][fichier] recherche de fichier dans tout le disque dur
    Par helonear dans le forum Entrée/Sortie
    Réponses: 11
    Dernier message: 15/12/2010, 10h43
  2. Recherche dans fichiers
    Par Tchinkatchuk dans le forum Linux
    Réponses: 2
    Dernier message: 17/06/2005, 10h32
  3. Réponses: 14
    Dernier message: 25/10/2004, 21h33
  4. batch de recherche de fichier ...
    Par Félia dans le forum Scripts/Batch
    Réponses: 5
    Dernier message: 29/07/2004, 15h54
  5. Recherche support fichier
    Par sydiop dans le forum Informix
    Réponses: 5
    Dernier message: 18/03/2004, 10h15

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