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
Para chamar o código:
Obrigado
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