MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Eliminar pastas depois de comprimida com o WinRar

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    backUp - [Resolvido]Eliminar pastas depois de comprimida com o WinRar Empty [Resolvido]Eliminar pastas depois de comprimida com o WinRar

    Mensagem  Assis 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 ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 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 ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 3/4/2018, 16:20

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


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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 3/4/2018, 17:01

    Boa tarde

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

    backUp - [Resolvido]Eliminar pastas depois de comprimida com o WinRar Sem_ty40


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:58