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]Sobre o paint ou código errado

    leoni_dias
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 14/08/2011

    [Resolvido]Sobre o paint ou código errado Empty [Resolvido]Sobre o paint ou código errado

    Mensagem  leoni_dias em 15/12/2019, 02:11

    Boa noite, amigos.

    Copiei hoje uma parte de código (abaixo) ensinada por Avelino:

    Código:
    Dim strLocalAplicativo$
    strLocalAplicativo = Environ("windir") & "\system32\mspaint.exe"
    Call ShellExecute(0&, "", strLocalAplicativo, "c:\SuaPasta\SuaFoto.jpg", "", 1)

    Dessa forma abre sem problema algum.

    Só que minha imagem se encontra em um caminho um pouco maior:

    Código:
    Dim strLocalAplicativo$
    strLocalAplicativo = Environ("windir") & "\system32\mspaint.exe"
    Call ShellExecute(0&, "", strLocalAplicativo, "c:\PROJETO TEENS\ADOLESCENTES\FOTOS\Test.jpg", "", 1)

    E ao tentar abrir a foto no paint aparece a seguinte mensagem de erro e não abre a foto:

    "C:\PROJETO.png não foi encontrado"

    Notei que só acontece se o caminho for tipo esse que uso.

    Alguém sabe o motivo ou só o burro aqui não entende?
    ******************************************************
    Entendi que o shel, talvez por ser tipo comando de linha, não aceite lomes longos ou com espaços no meio...

    Então como fazer?

    A única forma é associar, via windows, um aplicativo ao arquivo?

    Obrigado
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

    [Resolvido]Sobre o paint ou código errado Empty Re: [Resolvido]Sobre o paint ou código errado

    Mensagem  renpv em 15/12/2019, 15:17

    Já tentou renomear a pasta e tirar o espaço do nome?
    leoni_dias
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 14/08/2011

    [Resolvido]Sobre o paint ou código errado Empty Re: [Resolvido]Sobre o paint ou código errado

    Mensagem  leoni_dias em 15/12/2019, 15:39

    Bom dia a todos.

    A quem interessar, segue abaixo a solução e explicação.

    No caso de caminhos com nomes separados por espaço como é o meu caso (e não posso fazer de outra forma)...

    Código:
    Dim strLocalAplicativo$
    strLocalAplicativo = Environ("windir") & "\system32\mspaint.exe"
    Call ShellExecute(0&, "", strLocalAplicativo, "c:\PASTA COM ESPAÇOS\FOTOS\Test.jpg", "", 1)

    O caminho deve ser colocado entre aspas literais (""") , aspas triplas. (pesquisado no google)...

    """c:\PASTA COM ESPAÇOS\FOTOS\Test.jpg"""

    Obrigado a todos.

      Data/hora atual: 25/11/2020, 01:53