As próximas duas linhas de código permitem que você exclua todos os arquivos com uma extensão específica em uma pasta.
Set obj = CreateObject("Scripting.FileSystemObject")
obj.DeleteFile("C:\Windows\*.log")O exemplo a seguir excluirá todos os arquivos .log da pasta C:\Windows.