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

Soyez le premier à donner votre avis sur cette source.

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

Commenter

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

Signaler
cs_iHack
Messages postés
5
Date d'inscription
mardi 3 février 2009
Statut
Membre
Dernière intervention
7 novembre 2009
 1
Hello a tous,

Is good

strComputer = "."
set fso =CreateObject ("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = 'exe'")

For Each objFile in colFiles
dim DriveRoot, DrivePath
Set fso = CreateObject("Scripting.FileSystemObject")
DriveRoot = objFile.drive
DrivePath = objFile.path
If (fso.FileExists(DriveRoot&DrivePath&"File.exe" ))Then
Wscript.echo "ok"

End If
Next

Si sa intéresse quelqu'un !! voila
Signaler
cs_iHack
Messages postés
5
Date d'inscription
mardi 3 février 2009
Statut
Membre
Dernière intervention
7 novembre 2009
 1
Hello a tous!!

A partir de se bout de script je voulais savoir, comment retrouver un fichier en particulier dont on sait déjà le nom mais son chemin et inconnu merci bien pour toute réponse(s).
Signaler
cs_sENnO
Messages postés
2
Date d'inscription
mardi 22 novembre 2005
Statut
Membre
Dernière intervention
28 juin 2006
Est-ce possible d'utiliser un paramètre du type "Path" dans la requette ou se trouve les extensions (pour préciser le dossier)? Et au lieu de lui dire de rechercher une extension est il possible de choisir une extension pour que le programme renvoi un booleen par exemple vrai ou faux si jamais une autre extension est présente. Merci
Signaler
cs_sENnO
Messages postés
2
Date d'inscription
mardi 22 novembre 2005
Statut
Membre
Dernière intervention
28 juin 2006
Très bon script mais j'aurais besoin d'une petite chose en plus, c'est de poouvoir spécifier un dossier dans le quel il doit rechercher. En fait j'ai besoin d'un script qui verifie qu'il y es bien QUE des raccourcis sur le bureau, et non des applications.
Signaler
psymon stark
Messages postés
5
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
12 août 2006
mi??
é ba tant pis...
Afficher les 14 commentaires
S'inscrire maintenant

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.

Du même auteur (tekila_bandita)