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
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
