VBA: Deletando arquivos - 03

Mas e se eu quiser deletar todos os arquivos de um determinado tipo do diretório?

 

Dim MyFile As String

Dim nType as String

Let MyFile = Dir$("c:\temp\*.doc") Let nType="*.doc"

 

Do While MyFile <> ""     KillProperly "c:\temp\" & MyFile     Let MyFile = Dir$("c:\temp\" & nType) Loop

André Luiz Bernardes bernardess @ gmail . com | InAnyPlace (Skype) | Blog Office VBA | Blog Excel | Blog Access