Caracteres comodin para obtener los archivos de un directorio con getFolder() ?

Para obtener todos los archivos de un subdirectorio que empiecen por
ejemplo por 'arch' tengo que hacer lo suquiente:
...
Dim fso, listaArchivos, archivo
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set listaArchivos = fso.GetFolder(Server.MapPath("subdir/"))

For each archivo in listaArchivos.Files
If "arch" = Left(archivo.Name,4) Then
Response.Write archivo.Name
End If
Next
...
Para no pasearme por todos los archivos he intentado poner:
path = "subdir/arch*.*"
y no funciona.

Alquien sabe como solucionarlo.
Gracias.

Tony