Effectuer une recherche de fichier (en vbs bien sur!.....)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 22 100 fois - Téléchargée 29 fois
Contenu du snippet
Ce code vous montre comment effectuer une recherche de fichier sur le dique.
Et voilou les ptits loups!
Je vous laisse me commenter et me corriger...
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
- Extension of vbscript
- Vb lister v1.0 ((raccourcis vb et recherche de fichiers)) - Codes sources - Visual Basic / VB.NET (Divers)
- Visual Basic / VB.NET : Recherche des fichiers mp3,ogg sur tt le disque+visualisation des tags - Cod - Guide
- Visual Basic / VB.NET : Recherche des fichiers par leurs extensions - CodeS SourceS - Guide
- Recherche de fichier sur disque dur. ✓ - Forum - VB.NET
- Recherche de fichier et copie en VBS ✓ - Forum - VB.NET
Commentaires
- Messages postés
- 4066
- Date d'inscription
- mardi 13 mai 2003
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2008
18 -- Messages postés
- 480
- Date d'inscription
- jeudi 6 mai 2004
- Statut
- Membre
- Dernière intervention
- 3 septembre 2007
-JRB
- Messages postés
- 58
- Date d'inscription
- jeudi 12 mai 2005
- Statut
- Membre
- Dernière intervention
- 26 août 2006
-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+++
- Messages postés
- 1
- Date d'inscription
- mercredi 21 avril 2004
- Statut
- Membre
- Dernière intervention
- 16 février 2006
-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 .
- Messages postés
- 58
- Date d'inscription
- jeudi 12 mai 2005
- Statut
- Membre
- Dernière intervention
- 26 août 2006
-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.