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 FileName = 'Mon Fichier' AND Extension = 'Son Extension'") For Each objFile in colFiles Rapport.writeline objFile.Name Next
Remarque :
Bonjour à tous, cette source est fortement inspirée de celle ci http://www.vbfrance.com/codes/EFFECTUER-RECHERCHE- FICHIER-VBS-BIEN-SUR_32170.aspx
certains membres du forum demandaient comment rechercher un fichier en particulier plutot qu'une extension seule ou encore comment ne cibler la recherche que sur un seul disque
Cette source devrait répondre à toutes ces contraintes
ici pour adapter la source a vos besoins, il vous suffira de modifier les termes Mon Fichier et Son Extension en sachant qu'il ne faut pas mettre le point devant l'extension.
par exemple,
("Select * from CIM_DataFile where FileName = 'Mon Fichier' AND Extension = 'Son Extension'")
deviendra:
("Select * from CIM_DataFile where FileName = 'Musique' AND Extension = 'mp3'")
vous pouvez aussi modifier ce script en utilisant les vriables suivantes dans la requete:
Drive = disque dans lequel doit s'effectuer la rechercher
FileName = nom du fichier a rechercher
Extension = extension du fichier a rechercher
Path = répertoire dans lequel s'effectue la recherche