Ayuda con Busqueda de archivos de una carpeta

[Capemax]

Hola, necesito si me pueden ayudar a mejorar el siguiente codigo.
He buscado harto en foros y solo encuentro lo mismo y no logro ver como hacerlo.

Lo que necesito es ir a buscar ciertas imagenes a una carpeta que tiene muchas fotos.
Entonces el problema es que el nombre de la imagen o archivo no es totalmente conocido, ya que tiene un nombre asi: archivo_xxx.jpg, donde xxx varia dependiendo del nombre que tenia la foto en la camara.
Entonces quiero desplegar ciertas fotos que corresponden en mi caso a un vehiculo en particular.
Actualmente solo he encontrado la forma de listar los archivos de un directorio, y lo solucione por miestras haciendo una comparacion con el comando Instr(xx) y si es el que necesito, lo desplego.
El problema es que como voy cargando mas fotos dia a dia, se va poniendo muy lenta la busqueda.

Tonces, mi pregunta es como puedo ir a buscar solo esas fotos en particular??.. algo asi como Archivo*.jpg, y que solo me encuentre los que son similares.

asi lo tengo en el asp:

aqui armo parte de como sera la foto:
foto="969851806"&sucursal&seccion_ot&id_ot&"_" * despues del _ viene el nombre desconocido del archivo!!
aqui pongo las variables y comandos
dim fso, f
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set directorio = fso.GetFolder("C:\temp")
ruta_imagenes2="\\100.1.1.249\temp\" ** ruta de donde tengo las fotos***

aqui hago el ciclo de busqueda actualmente.

For Each Fichero in directorio.Files

if InStr(Fichero.NAME,foto)>0 then '*** aqui hago la comparacion de cada archivo que va listando***
w=w+1
%>
<img src="<%=ruta_imagenes2&Fichero.NAME%>" width="640" height="480" />
<%
end if

'Response.Write Fichero.Name & "<BR>"
Next

Bueno, ojala me puedan ayudar a solucionar esto, para poder hacer mas rapida esta consulta.

Saludos