Tá certo, tudo bem...Sim podemos apagar mais de um arquivo no mesmo diretório.
' Efetua-se um Loop através de todos os arquivos em um diretório usando a função Dir$
Dim MyFile As String
Let MyFile = Dir$("c:\temp\*.*")
' Efetua-se um Loop através de todos os arquivos em um diretório usando a função Dir$
Dim MyFile As String
Let MyFile = Dir$("c:\temp\*.*")
Do While MyFile <> ""
KillProperly "c:\temp\" & MyFile
KillProperly "c:\temp\" & MyFile
' Neste exemplo ainda precisa especificar todo o path
Let MyFile = Dir$("c:\temp\*.*")
Loop
Let MyFile = Dir$("c:\temp\*.*")
Loop
André Luiz Bernardes
| bernardess @ gmail . com | InAnyPlace (Skype) | Blog Office VBA | Blog Excel | Blog Access |