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
Nenhum comentário:
Postar um comentário