Seleccionar algunos ficheros solamente

Hola, necesito seleccionar de un directorio solo los ficheros que empiecen
por "aa" por ejemplo.
Para seleccionarlos todos hago:

<%
Dim fso
Set fso = Server.CreateObject("Scripting.fileSystemObject")
Dim rootFolder
Set rootFolder = fso.GetFolder(Server.MapPath("/propiedades/fotos/"&""))
Dim files
Set files = rootFolder.files

for each file in files
response.write file.name
response.write "<br>"
Next

set rootfolder = Nothing
set fso = Nothing
%>


pero necesito seleccionar solo los que contengan una comienzo comun, por
ejemplo que empiecen por "aa"

Gracias.