los enlaces te los creas asi
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.Mappath("tudirectorio"))
Set files = folder.Files
For Each file in files
response.write "<A HREF=" & Chr(39) & "muestralista.asp?archivo=" & file.Name & Chr(39) & ">" & file.Name & "</A><BR/>"
Next
solo falta condicionar la lista a los que comiencen con A01 como en el ejemplo que das, con un condicional if InStr(file.Name, "A01")) > 0
debieras solucionarlo.
salu2