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

    avatar
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    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 : 318
    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?
    avatar
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/2/2020, 19:54