Not Monitored
Tag not monitored by Microsoft.
36,152 questions
This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
Private Sub CommandButton1_Click()
raiz = "C:\Users\mxxxx\OneDrivexxxDocuments\01 - xxxxxx\04 - Logs\1 - Enviar por e-mail\New folder\"
For linha = 1 To 60
pasta = raiz & Cells(1, "A").Value & "\"
tipo = "*.*"
arquivo = Dir(pasta & tipo)
Do Until arquivo = ""
Kill pasta & arquivo
arquivo = Dir()
Kill pasta
Else
Kill pasta
End If
Loop
Next
Q&A forums are currently English only. I'd try asking for help over here in dedicated forums.
https://social.msdn.microsoft.com/Forums/pt-br/home
https://social.technet.microsoft.com/Forums/pt-br/home
https://answers.microsoft.com/pt-br
--please don't forget to upvote
and Accept as answer
if the reply is helpful--