Views

Histats

Vitrine

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 

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...