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

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

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.