Excel VBA no excel para excluir pasta no windows explorer

[Marcelo Lisboa Conde]

Criei uma macro para excluir a pasta do cliente no windows explorer após a exclusão do cadastro, porém executa primeiro a mensagem "Pasta Cliente FULANO 1_6_2020 não existe ou já foi excluída." e depois  executa a exclusão da pasta. Peço ajuda para verificar onde está o erro de sequencia das linhas de comando. Esta mensagem somente deveria aparecer se a pasta não existisse. Tem uma Sub que exclui o cadastro e depois chama esta macro. Segue abaixo a macro criada:

Sub Elimina_Pasta()
'
'   exclui a pasta do cliente macro
'
Dim fso
'
X = Range("I10").Value ' X recebe nome contido na célula "I10"
Y = Range("E8").Value ' Y recebe o ano contido na célula "E8"
Z = Range("F8").Value ' Z recebe o mês contido na célula "F8"
W = Range("G8").Value ' Y recebe o dia contido na célula "G8"
'
On Error GoTo NaoExistePasta
'
Set fso = CreateObject("Scripting.FileSystemObject")
'
fso.DeleteFile ("D:\Controle Escritorio\" & X & " " & W & "_" & Z & "_" & Y \ "*.*")
fso.DeleteFolder ("D:\Controle Escritorio\" & X & " " & W & "_" & Z & "_" & Y)
'
    MsgBox "PASTA CLIENTE excluída com sucesso.", vbOKOnly, "CONTROLE DE ESCRITÓRIO"
'
Set fso = Nothing
'
Exit Sub
'
NaoExistePasta:
'
MsgBox "Pasta Cliente " & X & " " & W & "_" & Z & "_" & Y & " não existe ou já foi excluída.", vbOKOnly, "CONTROLE DE ESCRITÓRIO"
'
Resume Next
'
End Sub

Agradeço desde já pela ajuda.

[AfonsoMira]

@Marcelo Lisboa Conde Boas,

Experimente assim:

Sub Elimina_Pasta()
'
'   exclui a pasta do cliente macro
'
Dim fso
'
X = Range("I10").Value ' X recebe nome contido na célula "I10"
Y = Range("E8").Value ' Y recebe o ano contido na célula "E8"
Z = Range("F8").Value ' Z recebe o mês contido na célula "F8"
W = Range("G8").Value ' Y recebe o dia contido na célula "G8"
'
On Error GoTo NaoExistePasta
'
Set fso = CreateObject("Scripting.FileSystemObject")
'
fso.DeleteFile ("D:\Controle Escritorio\" & X & " " & W & "_" & Z & "_" & Y \ "*.*")
fso.DeleteFolder ("D:\Controle Escritorio\" & X & " " & W & "_" & Z & "_" & Y)
'
    MsgBox "PASTA CLIENTE excluída com sucesso.", vbOKOnly, "CONTROLE DE ESCRITÓRIO"
'
Set fso = Nothing
'
Exit Sub
'
NaoExistePasta:
'
MsgBox "Pasta Cliente " & X & " " & W & "_" & Z & "_" & Y & " não existe ou já foi excluída.", vbOKOnly, "CONTROLE DE ESCRITÓRIO"
'
End Sub

 

Removi o "Resume Next"

[Marcelo Lisboa Conde]

Obrigado pela ajuda mas não funcionou. Excluiu somente o cadastro e a pasta no windows explorer permaneceu. A mensagem de que "a pasta não existe" ficou. 

[AfonsoMira]

@Marcelo Lisboa Conde Veja se este caminho está correto : "D:\Controle Escritorio\"  
Para saber o caminho correto da pasta:

1. Clique com o botão direito sobre a mesma
2. Escolha propriedades
3. Na aba Segurança
4. Onde está "Nome do Objeto" é o caminho correto da pasta

 

Caso a pasta esteja em um servidor de rede, terá que trocar a letra "D" pelo nome do servidor.

[Marcelo Lisboa Conde]

D:\ é uma partição do meu HD onde armazeno os arquivos. Se colocar de novo o RESUME NEXT ele exclui a pasta mas primeiro informa que a pasta não existe e depois volta para deletar. Acredito que a posição da linha "On Error GoTo NaoExistePasta" está errada. Já tentei várias posições mas nenhuma funcionou.

[AfonsoMira]

@Marcelo Lisboa Conde Então eu penso que esteja bem colocado sim, mas ele deve dar o erro quando vai eliminar o ficheiro na linha acima da que elimina a pasta.

 

Experimente colocar a linha em comentário e veja o que acontece.

[Marcelo Lisboa Conde]

Não funcionou. Não excluiu a pasta.

[AfonsoMira]

@Marcelo Lisboa Conde Pode anexar aqui o arquivo?

[Marcelo Lisboa Conde]

Segue o arquivo. Alterei a extensão dele para poder enviar pois a extensão xlsm não é permitida.

Controle Escritorio Juridico.xlsm.xls

[AfonsoMira]

Veja se agora ele funciona:Controle Escritorio Juridico.zip

 

Para adicionar arquivos Excel com macro, pode também zipar eles, utilizando o "Winrar" ou o "Zip"

[Marcelo Lisboa Conde]

Desculpe, mas não funcionou. Continua somente excluindo o cadastro, aparece a mensagem de "pasta não existe" e não deleta no windows explorer

[Marcelo Lisboa Conde]

consegui resolver, obrigado

[AfonsoMira]

@Marcelo Lisboa Conde Qual era o problema, pois não consegui identificar?

[Marcelo Lisboa Conde]

Na Private Sub btExcluir_Click eu coloquei a Call Elimina_Pasta antes de executar a exclusão do cadastro e funcionou legal. Acho que como estava logo acima da Call LimpaDadosExcluidos na sub btExcluir, esta executava mais rápido que a 1ª, pois limpava os campos de data e nome e dava o erro. Obrigado pela ajuda.

[AfonsoMira]

19 minutos atrás, Marcelo Lisboa Conde disse:

Na Private Sub btExcluir_Click eu coloquei a Call Elimina_Pasta antes de executar a exclusão do cadastro e funcionou legal. Acho que como estava logo acima da Call LimpaDadosExcluidos na sub btExcluir, esta executava mais rápido que a 1ª, pois limpava os campos de data e nome e dava o erro. Obrigado pela ajuda.

Ah entendi!