Macro para eliminar archivos temporales ocultos

¿Cómo sería para poder eliminar desde vba en una carpeta y subcarpetas todos los archivos temporales (que empiezan por ~), y ocultos?