Las siguientes dos líneas de código le permiten eliminar todos los archivos con una extensión particular en una carpeta.
Set obj = CreateObject("Scripting.FileSystemObject")
obj.DeleteFile("C:\Windows\*.log")
El siguiente ejemplo eliminará todos los archivos .log de la carpeta C:\Windows
.