Bonjour a tous,
ca fait plusieur jours que j'explore le site pour touver une procedure pour faire une recherche de
fichier sur un disque ,mais fso, api ... ou listfilebox ,mais je rencontre toujours le meme probleme
c-a-d pour le nom de fichier , mom but est de faire une recherche sur le nom du fichier
du genre *200*.*  avec 200 etant la variable d'une text box

si quelqu'un peut m'aider

d'avance Merci

 Bonjour,



Avec WMI.

Option Explicit
Const MonMot = "2006"  'soit Year(date)

Dim fso, strComputer, resultat, f
Dim objWMIService, colFiles, objFile
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Drive = 'd:'")  

For Each objFile in colFiles
If InStr(objFile.Name, MonMot) Then resultat = resultat &vbCr& objFile.Name
Next

WScript.Echo resultat

Set objWMIService = Nothing
Set colFiles =  Nothing

'("Select * from CIM_DataFile where FileName = '2006' And Extension = 'txt'")  
' je n'arrive pas à optimiser la quéry avec un instr sur le filename.  Est-ce possible ???

jean-marc