EFFECTUER UNE RECHERCHE DE FICHIER (EN VBS BIEN SUR!.....)
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
-
20 juin 2005 à 11:46
cs_iHack Messages postés 5 Date d'inscription mardi 3 février 2009 Statut Membre Dernière intervention 7 novembre 2009 - 7 nov. 2009 à 18:40
cs_iHack Messages postés 5 Date d'inscription mardi 3 février 2009 Statut Membre Dernière intervention 7 novembre 2009 - 7 nov. 2009 à 18:40
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/32170-effectuer-une-recherche-de-fichier-en-vbs-bien-sur
https://codes-sources.commentcamarche.net/source/32170-effectuer-une-recherche-de-fichier-en-vbs-bien-sur
7 nov. 2009 à 18:40
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
7 nov. 2009 à 01:09
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).
28 juin 2006 à 16:23
28 juin 2006 à 15:25
17 mai 2006 à 21:50
é ba tant pis...
17 mai 2006 à 21:46
+++SALUT+++
17 mai 2006 à 21:10
code: 80041017
source: (null)
à la ligne: for each...
caractère 1
dès que je change la pitite étoile
je pige pas trop beaucoup...
17 mai 2006 à 20:50
tu as juste a remplacer "*" par le nom du fichir que tu chrche ...
Ps: jai une autre questions pour convertir des fichiers d'un dossier précis Svp ?
17 mai 2006 à 16:15
16 févr. 2006 à 15:49
Merci pour ta réponse !! j'ai enfin réussi à faire mon code !!
je vais essayé de trouver un moyen à ton problème ... ;)
+++SALUT+++
16 févr. 2006 à 11:46
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 .
21 janv. 2006 à 12:37
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+++
25 juin 2005 à 13:02
JRB
20 juin 2005 à 11:46