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


3 participantes

    [Resolvido] Compactando banco para winrar

    avatar
    VitorBraz
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/07/2011

    [Resolvido] Compactando banco para winrar Empty [Resolvido] Compactando banco para winrar

    Mensagem  VitorBraz 18/6/2014, 13:33

    Meu código

    Private Sub Comando0_Click()

    Dim objfs As Object
    Set objfs = CreateObject("Scripting.FileSystemObject")
    objfs.CopyFile "C:\Users\vvsilva\Desktop\2M Apresentação - Atual.accdb", "C:\Users\vvsilva\Desktop\2m\a.accdb"


    Dim booResultado As Boolean
    booResultado = Application.CompactRepair("C:\Users\vvsilva\Desktop\2m\a.accdb", "C:\Users\vvsilva\Desktop\2m\b.accdb", True)

    If fncProtegido = True Then
    Dim objws As Object
    Set objws = CreateObject("wscript.shell")
    objws.SendKeys fncCapturaSenha, True
    objws.SendKeys "{ENTER}"
    End If


    If booResultado = True Then FileSystem.Kill "C:\Users\vvsilva\Desktop\2m\a.accdb"



    ==============Erro parece está aqui, ele não encontra o arquivo==========================

    Dim compri
    compri = Shell("C:\Arquivos de programas\Winrar\WinRAR.EXE a " & _
    Replace("C:\Users\vvsilva\Desktop\2m\b", ".accdb", "") & ".rar " & "C:\Users\vvsilva\Desktop\2m\b", vbHide)

    End Sub

    E aparece a mensagem "O arquivo não foi localizado"


    Última edição por VitorBraz em 20/6/2014, 12:08, editado 1 vez(es)
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido] Compactando banco para winrar Empty Compactando banco para winrar

    Mensagem  daniloreiis 18/6/2014, 17:47

    Boa tarde amigo!

    Faltou você especificar o nome do arquivo para compactação corretamente, testei aqui e foi.

    veja:

    seu código:

    Código:

    Dim compri
    compri = Shell("C:\Arquivos de programas\Winrar\WinRAR.EXE a " & _
    Replace("C:\Users\vvsilva\Desktop\2m\b", ".accdb", "") & ".rar " & "C:\Users\vvsilva\Desktop\2m\b", vbHide)

    correção:


    Dim compri
    compri = Shell("C:\Arquivos de programas\Winrar\WinRAR.EXE a " & _
    Replace("C:\Users\vvsilva\Desktop\2m\b", ".accdb", "") & ".rar " & "C:\Users\vvsilva\Desktop\2m\b.accdb", vbHide)

    Espero ter ajudado.

    Att, Danilo
    avatar
    VitorBraz
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/07/2011

    [Resolvido] Compactando banco para winrar Empty Re: [Resolvido] Compactando banco para winrar

    Mensagem  VitorBraz 18/6/2014, 21:20

    Erro em tempo de execução '53':

    O arquivo não foi localizado

    Problema continua

    Eu já tinha tentado desta forma
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido] Compactando banco para winrar Empty Compactando banco para winrar

    Mensagem  daniloreiis 18/6/2014, 21:52

    Boa tarde !

    verifica se você esta chamando o WINRAR corretamente, pois aqui no meu código testei e deu certo.

    compri = Shell("C:\Program Files (x86)\WinRAR\WinRAR.EXE a " & _

    Att , Danilo
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido] Compactando banco para winrar Empty Re: [Resolvido] Compactando banco para winrar

    Mensagem  Noobezinho 19/6/2014, 02:55

    Vitor

    Experimente isso:

    Código:

    compri =Shell("C:\Program Files\WinRAR\WinRAR.exe a -r -ep C:\Users\vvsilva\Desktop\2m\b.rar C:\Users\vvsilva\Desktop\2m\b.accdb",vbHide)

    Isso evita as pastas sobrepostas até chegar no arquivo.accdb dentro do arquivo.rar.

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    VitorBraz
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/07/2011

    [Resolvido] Compactando banco para winrar Empty [Resolvido]

    Mensagem  VitorBraz 20/6/2014, 12:03

    Descobri o problema.
    Apesar de aparecer escrito  C:\Arquivos de programa... correto é escrever em inglês C:\Program Files...

    OObrigado


    Última edição por VitorBraz em 20/6/2014, 14:34, editado 1 vez(es)
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido] Compactando banco para winrar Empty Compactando banco para winrar

    Mensagem  daniloreiis 20/6/2014, 12:37

    Legal que conseguiu VitorBraz Sucesso Amigo!

    Conteúdo patrocinado


    [Resolvido] Compactando banco para winrar Empty Re: [Resolvido] Compactando banco para winrar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:11