[Resolvido]Eliminar pastas depois de comprimida com o WinRar

Boa tarde Amigos

Neste código porque quando mando apagar, depois de serem comprimidos com o WinRar, só apaga os que estão marcados com XXXXXXX.

Mas ao comprimir com o WinRar ficam todos na pasta Comprimida

Código:

Sub ApagarPastaExistente()
On Error Resume Next
Dim fso
Dim fol As String
Dim fol1 As String
Dim fol2 As String
Dim fol3 As String
Dim fol4 As String

fol = CaminhoEscolhido & "\PDF"       'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
fol1 = CaminhoEscolhido & "\Imagens"
fol2 = CaminhoEscolhido & "\Icone"
fol3 = CaminhoEscolhido & "Tabelas"         'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
fol4 = CaminhoEscolhido & "\*.accd?"       'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(fol) Or (fol1) Or (fol2) Or (fol3) Or (fol4) Then

fso.DeleteFolder fol
fso.DeleteFolder fol1
fso.DeleteFolder fol2
fso.DeleteFolder fol3
fso.DeleteFile fol4


Else
MsgBox fol & " Não Existe ou Foi Apagada!", vbExclamation, "Erro"
End If
End Sub

Para chamar o código:

Código:

Call ApagarPastaExistente

Obrigado

Boa tarde Amigos
Resolvi o Backup Geral.
A parte mais difícil é do Mestre Avelino Sampaio. E era só as tabelas.

Agora com alterações faz:

Backup das tabelas,
Do próprio Programa.
Da pasta "PDF" aonde são armazenados os pdf criados.
Da pasta "Imagens" onde estão as imagens dos produtos.
Da pasta "Icone" onde podem estar vários icons para cada utilizador escolher o seu.

Veja o Vídeo

dropbox.com/s/vcly4p4yeftlb7q/V%C3%ADdeo%20Backup.mp4?dl=1

o meu OBRIGADO a todos que me têm ajudado.

Olá Assis,

Como ficou o código da sua dúvida, pode partilhar como resolveu na questão que colocou?
Os membros do fórum agradecem.

Abraço

Teixeira
Viu o vídeo ?
Estou no móvel quando chegar a casa explico.

Boa tarde

A solução da Msg. Nº 1 ver imagem.

Olá Assis,

Obrigado pelo retorno, quem tiver dúvidas no que foi adicionado, pode consultar no link abaox:

msdn.microsoft.com/pt-BR/vba/language-reference-vba/articles/deletefolder-method

Abraço