MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Eliminar pastas depois de comprimida com o WinRar

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3558
    Registrado : 06/11/2009

    [Resolvido]Eliminar pastas depois de comprimida com o WinRar

    Mensagem  Assis em 30/3/2018, 12:57

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3558
    Registrado : 06/11/2009

    Re: [Resolvido]Eliminar pastas depois de comprimida com o WinRar

    Mensagem  Assis em 30/3/2018, 18:46

    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.


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: [Resolvido]Eliminar pastas depois de comprimida com o WinRar

    Mensagem  ahteixeira em 3/4/2018, 12:40

    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

    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3558
    Registrado : 06/11/2009

    Re: [Resolvido]Eliminar pastas depois de comprimida com o WinRar

    Mensagem  Assis em 3/4/2018, 16:20

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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3558
    Registrado : 06/11/2009

    Re: [Resolvido]Eliminar pastas depois de comprimida com o WinRar

    Mensagem  Assis em 3/4/2018, 17:01

    Boa tarde

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

    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: [Resolvido]Eliminar pastas depois de comprimida com o WinRar

    Mensagem  ahteixeira em 5/4/2018, 15:38

    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

      Data/hora atual: 21/11/2018, 02:19