Utiliza el FilesystemObject, en este foro hay muchos ejemplos para hacer eso..
Despues necesitarás un bucle y quizás una condición para borrar aquellos archivos que quieras borrar
Código:
For each archivo in Carpeta.Files
Si archivo = alguna_condicion
Borra archivo
Fin Si
Next
Hace mucho que no ocupo el FSO je je, por lo tanto no recuerdo muy bien, pero usa el buscador, seguro encontrarás lo que quieres
Salu2,