Effectuer une recherche de fichier (en vbs bien sur!.....)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 284 fois - Téléchargée 29 fois

Contenu du snippet

Ce code vous montre comment effectuer une recherche de fichier sur le dique.

Source / Exemple :


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = 'mp3' OR Extension = 'wma'")     
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next

'ici les fichiers rechercher sont les *.mp3 et *.wma...

Conclusion :


Et voilou les ptits loups!

Je vous laisse me commenter et me corriger...

A voir également

Ajouter un commentaire

Commentaires

econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
19 -
Peux-tu donner les types de chacune de tes données STP ? (objWMIService , colFiles )
jrbleboss
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
-
C'est cours je vais testé je pensais pas que l'on pouvais cherhcer avec le WMI !!

JRB
tH3 GuItArIsTe 666
Messages postés
58
Date d'inscription
jeudi 12 mai 2005
Statut
Membre
Dernière intervention
26 août 2006
-
salut

est - ce que c'est possible de faire quelque chose du genre :


Set sso = createobject("scripting.filesystemobject")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension 'xml' OR Extension 'xsl'")
For Each objFile in colFiles
Next

set sfn= sso.createtextfile("raport de recherche.txt")
sfn.write variable
sfn.close



parceque la mon code ne marche pas : le "raport.txt" se crée mais n'enregistre pas le raport de la recherche ... et aussi je cherche à ce qu'il n'y est pas de msgbox qui s'affiche ... (c'est pour ca que j'ai supprimé la ligne : Wscript.Echo objFile.Name

je serais très reconnaissant à celui qui pourrais m'aider ...

Merci d'avance ! :)

+++SALUT+++
tigris75
Messages postés
1
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
16 février 2006
-
Salut,

c'est cour, simple( tout est relatif surtout avec WMI) et efficace.
D'ailleur un peut trop efficace. Cela recherche sur tout les lecteur (Phisique et réseaux). Légèrement enbêtant lorsque l'on à une dizaine de lecteur réseaux de connecter.

Si quelqu'un c'est comment faire pour ciblé la recherche sur un seul lecteur ??


Sinon pour répondre au Guitariste 666, essaie comme cela :

strComputer = "."
Set objFSO = CreateObject("Scripting.FileSystemObject")
SET Rapport = ObjFSO.OpenTextFile("C:\rapport.txt",2,TRUE,0)
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
Rapport.writeline objFile.Name
Next


Allez @+

Ps: si quelqu'un a la reponce à ma Question je lui serais très reconnaissant .
tH3 GuItArIsTe 666
Messages postés
58
Date d'inscription
jeudi 12 mai 2005
Statut
Membre
Dernière intervention
26 août 2006
-
Salut à toi tigris75

Merci pour ta réponse !! j'ai enfin réussi à faire mon code !!

je vais essayé de trouver un moyen à ton problème ... ;)

+++SALUT+++

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.