[Resolvido]Erro no exemplo de Backup 2

Olá amigos,

Se o amigo Harysohn estiver por aí é sobre o tópico http://maximoaccess.forumeiros.com/t15183p150-resolvidoerro-no-exemplo-de-backup

No meu windows 7 32bits, access 2007 32 bits o backup e o restore com winrar funciona perfeitamente.

Adquiri um novo pc e coloquei windows 7 64 bits, access 2007 32 bits e o backup e restore com winrar parou de funcionar.
Já tentei mudar o caminho do winrar mas não adiantou. TEntei deixar a marcação da caixa de compactar ou descompactar com winrar
mas também não deu certo.
Pelo que estou deduzindo é como se ele não encontrasse o winrar no meu PC porém eles está instalado de forma padrão.

Se puder me dar uma mão fico muito agradecido pois a adaptação do seu exemplo que fiz é que tem resolvido alguns problemas por aqui.

Grato
Marcelo

Faça uma pesquisa no fórum por "64 bits". Há algumas dicas de adaptação que talvez lhe ajude.

Ali ↓abaixo↓ na minha assinatura tem um vídeo com dicas para pesquisas mais eficientes no fórum.

Já procurei no fórum mas só encontro posts sobre 64 bits para o Access 64bits
No meu caso só o windows é 64 bits e no exemplo citado tanto o backup quanto o restore
sem compactação continuam funcionando normalmente, tanto na basta backup quanto
no Dropbox.
Somente o backup e restore "compactado com winrar" é que não funciona mais.
Grato

Olá, pessoal
Boa tarde

Estava dando uma olhada aqui e descobri que na verdade o exemplo citado funcionava no meu win64 sim eu é que
não estava me dando contra de que a caixa de seleção para o backup (ou restore) com winrar começou a ficar bloqueada.
Ele simplesmente parou de uma hora para outra.
Como no aplicativo tem um código que verifica a existência do WinRAR e libera a caixa de seleção "desconfio" que ele
não está fazendo esta verificação, pois em outro PC (com win32) funciona normalmente.
Tentei colocar o caminho do WinRAR completo mas também não deu.
Então fiquei realmente de pés e mãos amarradas.
Se alguém puder me dar uma luz fico muito grato.

Isso aí que tu disse é no aplicativo Access? Se for, as funções tem tratamento de erro? Se sim, já tentou desabilitá-los e rodar para ver se dá mensagem de erro e marca a linha do problema?

Olá Criquio, boa noite

Sim, é no access e parou de funcionar de uma hora para outra.
O aplicativo de backup tem um código que quando não encontra o WinRAR no sistema
desabilita uma caixa de seleção:

If Len(Dir("C:\Arquivos de programas\Winrar\WinRAR.EXE") & "") = 0 Then
If Len(Dir(Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE") & "") > 0 Then
strLocalWinRar = Environ("programFiles")
Else
Me!selWinrar.Enabled = False
End If

Se eu tornar esta caixa de seleção habilitada dá o erro:

53 - O arquivo não foi localizado

Tenho várias cópias deste aplicativo access justamente por segurança e em todas começou a dar o mesmo erro.
Em outro PC meu, mais antigo, funciona normalmente mas no PC novo "funcionava" e parou sem nem mesmo eu perceber.

A única diferença é que no PC atual "o WinRAR é 64 bits.

Grato

Tente tirar o & "" no final:

Código:

Len(Dir(Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE"))

E também exiba o caminho em uma MsgBox para ver se está retornando o caminho correto do winrar.

Olá,
Obrigado por ajudar.
Tentei colocando
If Len(Dir(Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE")) > 0 Then
Não resolveu (se eu habilitar a caixa dá o mesmo erro 53- O arquivo não foi localizado).

Já exibir o caminho em uma Msgbox eu sinceramente não sei como fazer
Se puder dar uma dica farei e posto aqui.
Grato

Código:

MsgBox Len(Dir(Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE"))

O código completo ficaria assim?


If Len(Dir("C:\Arquivos de programas\Winrar\WinRAR.EXE") & "") = 0 Then
If Len(Dir(Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE")) > 0 Then

   
       strLocalWinRar = Environ("programFiles")
       MsgBox Len(Dir(Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE"))
   Else
       Me!selWinrar.Enabled = False
   End If
Else
   strLocalWinRar = "c:\Arquivos de programas"
End If
strCaminho = strCaminhoBd
Me!txOrigem = strCaminhoBd
Me!txDestino = fncDestinoBackup
CaminhoTemp = Me.txDestino
End Sub

Coloque o MsgBox antes de tudo apenas para exibir a mensagem e um Exit Sub logo após para parar o código. É apenas para exigir a mensagem:

Código:

MsgBox Len(Dir(Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE"))
Exit Sub

If Len(Dir("C:\Arquivos de programas\Winrar\WinRAR.EXE")) = 0 Then
....

A mensagem retorna 0 (número zero).

Então não existe o WinRar nesse caminho. Agora teste o caminho em si para ver o que retorna:

Código:

MsgBox Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE"

Retorna:

C:\Program Files(x86)\Winrar\WinRAR.EXE

Não entendi isto porque o meu winrar está em:

"C:\Program Files\WinRAR\WinRAR.exe"

Olá, bom dia.

Fiz um monte de testes aqui trocando o código para ver se mostra o winrar na pasta de arquivos de programas 64 bits mas não deu certo.
Acho que só trocando o winrar para um de 32 bits mas pelo que entendi do código deveria funcionar porque o winrar está na pasta
C:\Program Files\WinRAR\WinRAR.exe
Mas o que me encuca é que estava funcionando.
Grato

Talvez se passar o caminho assim:

Código:

Replace(Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE", "(x86)", "")

ou talvez trocando "Program Files(X86)" por "Arquivos de Programas":

Código:

Replace(Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE", "Program Files(x86)", "Arquivos de Programas")

Olá, boa tarde.
Mas onde eu colocaria esta linha dentro deste código:

If Len(Dir("C:\Arquivos de programas\Winrar\WinRAR.EXE") & "") = 0 Then
If Len(Dir(Environ("PROGRAMFILES") & "\Winrar\WinRAR.EXE") & "") > 0 Then

strLocalWinRar = Environ("programFiles")
Else
Me!selWinrar.Enabled = False
End If

Porque pelo que entendi deste código a primeira linha verifica se o WinRAR está na pasta
C:\Program Files (que são os programas em 64 bit) e realmente ele está lá.

Se eu usar C:\Program Files (x86) que são os programas 32 bits não vai encontrar o WinRAR

Estou bem confuso com isto pois eu pensava que estas linhas de código acima procurava nas 2 pastas
mas percebo que não é assim.

Como eu poderia colocar para procurar nas 2 pastas?

Grato

Da sua mensagem n° 14:

Retorna:

C:\Program Files(x86)\Winrar\WinRAR.EXE

Não entendi isto porque o meu winrar está em:

"C:\Program Files\WinRAR\WinRAR.exe"

Você diz que retorna "C:\Program Files(x86)\Winrar\WinRAR.EXE" mas o WinRar está em "C:\Program Files\WinRAR\WinRAR.exe". Por isso sugerir usar o Replace para retirar o (x86) e ficar do jeito que você disse que está o caminho certo. Se digitar o caminho correto "C:\Program Files\WinRAR\WinRAR.exe" não funciona?

Olá, boa noite.
Eu tinha tentado com o endereço completo do winrar e não tinha dado certo.

Agora consegui de outra forma. Dando uma pesquisada pelo google encontrei no site Usando Access um artigo falando sobre
"Capturando informações do Windows e do Hardware ". Li o artigo todo e para minha surpresa tinha um comentário de um
leitor por nome Gustavo (de 25/10/2014) falando justamente sobre o winrar: ... não reconhecia que ele estava instalado na pasta Program Files, somente reconhecia que tinha que estar na pasta Program Files (x86).
Pensei na hora: é a mesma coisa que está acontecendo com o meu.
Fiz como ele descreveu para solucionar o problema dele (na verdade copiei e colei).
O código ficou assim:

If Len(Dir("C:\Arquivos de programas\Winrar\WinRAR.EXE") & "") = 0 Then
If Len(Dir(Environ("ProgramW6432") & "\WinRar\WinRAR.EXE") & "") > 0 Then
strLocalWinRar = Environ("ProgramW6432")
Else
Me!selWinrar.Enabled = False
End If
Else
strLocalWinRar = "c:\Arquivos de programas"
End If
strCaminho = strCaminhoBd
Me!txOrigem = strCaminhoBd
Me!txDestino = fncDestinoBackup
CaminhoTemp = Me.txDestino

Note que foram modificadas somente a segunda e terceira linha.

E prontinho...Funcionando tanto no meu win 64 quanto no 32 bits.

Fico muito grato pela ajuda

Só não entendi a diferença do ("ProgramW6432") para ("PROGRAMFILES").

Obrigado

Algumas pastas do sistema de 64 bits tem outros nomes. A System32 por exemplo é SysWow no 64 bits. É por isso.

Mas SysWow é uma subpasta da pasta Windows então o que tem ela com a pasta arquivos de programa que é onde está o winrar?
Se o código tem que procurar o winrar fiquei sem entender.
Mas já fico satisfeito em ter conseguido resolver porque uso muito este aplicativo para backup de um outro aplicativo que fiz para uso em meu trabalho.

Eu não quis dizer que esse fosse o caso, apenas citei como exemplo. Como eu citei em um dos primeiros posts, há algumas diferenças na forma de trabalhar com sistemas de 32 e de 64 bits e uma delas é essa da propriedade do Environ que teve que mudar. Cada versão do Office, cada versão do SO e até mesmo para cada aplicativo Office de uma mesma versão, há algumas diferenças entre as propriedades Environ e o retorno delas.

Bom que resolveu.