MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 6/6/2020, 13:35

    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


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

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 6/6/2020, 16:04

    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


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 7/6/2020, 10:54

    Bom dia Assis,

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

    Abraco
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 7/6/2020, 11:37

    Bom dia Teixeira

    Já sei que não.

    Mas posso receber uma dica ? Laughing Laughing

    Obrigado


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

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 7/6/2020, 11:48

    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


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 7/6/2020, 12:14

    Olá Assis,

    Exatamente, viu como fica melhor  Very Happy

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

    Abraço e bom domingo
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 12/6/2020, 08:41

    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


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 12/6/2020, 14:26

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 12/6/2020, 23:06

    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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 13/6/2020, 09:50

    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


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 13/6/2020, 10:13

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

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 13/6/2020, 10:23

    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


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 15/6/2020, 09:49

    ... Basketball

      Data/hora atual: 1/12/2020, 11:01