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] Compactando banco para winrar

    Compartilhe

    VitorBraz
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido] Compactando banco para winrar

    Mensagem  VitorBraz em Qua 18 Jun 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 Sex 20 Jun 2014, 12:08, editado 1 vez(es)
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Compactando banco para winrar

    Mensagem  daniloreiis em Qua 18 Jun 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

    VitorBraz
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido] Compactando banco para winrar

    Mensagem  VitorBraz em Qua 18 Jun 2014, 21:20

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

    O arquivo não foi localizado

    Problema continua

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

    Respeito às Regras 100%

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

    Compactando banco para winrar

    Mensagem  daniloreiis em Qua 18 Jun 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
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido] Compactando banco para winrar

    Mensagem  Noobezinho em Qui 19 Jun 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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    VitorBraz
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]

    Mensagem  VitorBraz em Sex 20 Jun 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 Sex 20 Jun 2014, 14:34, editado 1 vez(es)
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Compactando banco para winrar

    Mensagem  daniloreiis em Sex 20 Jun 2014, 12:37

    Legal que conseguiu VitorBraz Sucesso Amigo!

      Data/hora atual: Sab 18 Nov 2017, 10:28