[Resolvido]Verificar se existe WinRar.exe no Windows 64 e 32 bit

Boa tarde Amigos

Com Win 10 - 64 e WinRar 32 funciona .

Mas agora tenho

Win 10 64 e WinRar 64  ----------------->Não consigo acertar

If Len(Dir("PROGRAMFILES(x86)") & "\Winrar\WinRAR.EXE") & "" > 0 Then 'windows 10 - 64 Bits e office 2007 - 32 Bits
       WinRarPath = "C:\Program Files (x86)\WinRar\"
ElseIf Len(Dir("PROGRAMFILES") & "\Winrar\WinRAR.EXE") & "" > 0 Then
     WinRarPath = "C:\Program Files\WinRar\"
Else
       MsgBox "O WinRar Não Está Instalado Nesse Diretorio." _
        & Chr$(13) & "Impossivel Comprimir."
       Exit Sub
End If

Boa tarde

Resolvido: Win 10 64 Bits WinRar 64 Bits

Código:

If Len(Dir("PROGRAMFILES") & "\Winrar\WinRAR.EXE") & "" > 0 Then
     WinRarPath = "C:\Program Files\WinRar\"
Else
       MsgBox "O WinRar Não Está Instalado Nesse Diretorio." _
        & Chr$(13) & "Impossivel Comprimir."
       Exit Sub
End If

Bom dia Assis,

Mas assim acha que vai funcionar no WinRar a 32?
Parece que nao, verifique.

Abraco

Bom dia Teixeira

Já sei que não.

Mas posso receber uma dica ?

Obrigado

E assim o que acha Amigo

Código:

If Len(Dir("PROGRAMFILES") & "\Winrar\WinRAR.EXE") & "" > 0 Then
      WinRarPath = "C:\Program Files\WinRar\"
ElseIf Len(Dir("PROGRAMFILES(x86)") & "\Winrar\WinRAR.EXE") & "" > 0 Then
       WinRarPath = "C:\Program Files (x86)\WinRar\"
Else
       MsgBox "O WinRar Não Está Instalado Nesse Diretorio." _
        & Chr$(13) & "Impossivel Comprimir."
       Exit Sub
End If

Olá Assis,

Exatamente, viu como fica melhor  

Nota: título do tópico ajustado com a questão e código envolvido.

Abraço e bom domingo

Bom dia Amigos

Teixeira

Com o código da mensagem Nª 5 o backup é efetuado mas mas não é comprimido com o WinRar, testado no Win 10   e WinRar 64


Com o código da mensagem Nª 2 o backup é efetuado e comprimido com o WinRar, testado no Win 10   e WinRar 64

Olá Assis,

Olhando com mais calma para o código a lógica está certa do else if.
Mas temos que adivinhar que está a faltar o environ$ e se estiver assim não é necessário o else if, veja:

Código:

If Len(Dir(Environ$("PROGRAMFILES")) & "\Winrar\WinRAR.EXE") & "" > 0 Then
    WinRarPath = Environ$("PROGRAMFILES") & "\WinRar\"
Else
    MsgBox "O WinRar Não Está Instalado Nesse Diretorio." _
    & Chr$(13) & "Impossivel Comprimir."
    Exit Sub
End If


Nem compilou o projeto? Não dá erro?

Se quiser manter com o else if, tente algo assim:

Código:

If Len(Dir("C:\Program Files\") & "Winrar\WinRAR.EXE") & "" > 0 Then
      WinRarPath = "C:\Program Files\WinRar\"
ElseIf Len(Dir("C:\Program Files (x86)\") & "Winrar\WinRAR.EXE") & "" > 0 Then
       WinRarPath = "C:\Program Files (x86)\WinRar\"
Else
       MsgBox "O WinRar Não Está Instalado Nesse Diretorio." _
        & Chr$(13) & "Impossivel Comprimir."
       Exit Sub
End If


Nota: exemplos não testados.

Abraço

Há um tempo atrás tive uma necessidade parecida e assim me atendeu bem tanto para sistemas 32, quanto para sistemas 64, quanto para 32 rodando em 64.

Código:

If Dir(Environ("ProgramFiles(x86)") & "\Winrar\WinRAR.exe") <> "" Then
    WinRarPath = Environ("ProgramFiles(x86)")
ElseIf Dir(Environ("ProgramFiles") & "\Winrar\WinRAR.exe") <> "" Then
    WinRarPath = Environ("ProgramFiles")
ElseIf Dir(Environ("ProgramW6432") & "\Winrar\WinRAR.exe") <> "" Then
    WinRarPath = Environ("ProgramW6432")
Else
    call MsgBox("O WinRar Não Está Instalado Nesse Diretorio." _
                & Chr$(13) & "Impossivel Comprimir.")
    Exit Sub
End If

Bom dia Damasceno

O código da mensagem Nº 9 no Win 10 64 com WinRar 64 não comprime a cópia de segurança criada.

Obrigado

Olá a todos,

Assis, nenhum codigo deste tópico pode compactar, pois se ler o código apenas está a verificar se existe o ficheiro winRAR.exe e atribuir o caminho à variável WinRarPath.

Concorda? Se concorda partilhe o resto do código ou monte exemplo para se testar.

Abraço

Bom dia Teixeira

Mas este que testei agora de sua autoria, no Win 10 64 com WinRar 64 compacta a cópia de segurança efetudada.

Só não testei ainda no Win 10 64 com WinRar 32, pois de momento não tenho computador mas no inicio da semana vou ter e vou testar  

Código:

If Len(Dir("C:\Program Files\") & "Winrar\WinRAR.EXE") & "" > 0 Then
     WinRarPath = "C:\Program Files\WinRar\"
ElseIf Len(Dir("C:\Program Files (x86)\") & "Winrar\WinRAR.EXE") & "" > 0 Then
      WinRarPath = "C:\Program Files (x86)\WinRar\"
Else
      MsgBox "O WinRar Não Está Instalado Nesse Diretorio." _
       & Chr$(13) & "Impossivel Comprimir."
      Exit Sub
End If

...