Como hacer un GetFolder de ciertos .Jpg

[Spider_Z]

Hola, necesito hacer un getFolder
pero en la carpeta hay miles de fotos y tengo q traer solo algunas que comienzan todas con el mismo nombre por ejemplo


001_1.jpg
001_2.jpg
001_3.jpg

002_1.jpg
002_2.jpg


Y quiero traer solo las 001 pogamos, lo puedo discriminar con el getfolder


Muhcas Gracias.

[Spider_Z]

Código:

<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\test\")
Dim id
id = "999" 'esto esta para probar pero se supone q es dinamico

Dim cont
Dim i
cont = 0
%>  
<div class="origen">
<ul id="listaInicial">
<%
for each x in fo.files
	If InStr(x.Name, id) Then
	cont = cont + 1
	'Response.write(x.Name & "<br />")
	%>
	<img  class="elemento" Width="80px" height="60" id="elemet<%=cont%>" src="<%=Response.write(x.Name)%>" ></img>
<%
  End if
next
%>
</ul>
</div>
<%
set fo=nothing
set fs=Nothing
%>

esto funciona
pero pas q si lo filtro por InStr(x.Name, id)

cuando haya caso por ejemplo 9999 de id

me va trar los 9, los 99, 999 y asi y no sirve algun otra manera??