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]Renomear imagens

    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Renomear imagens Empty [Resolvido]Renomear imagens

    Mensagem  WS_Lima em 5/9/2020, 21:43

    Olá colegas! Mas uma vez buscando o auxílio de vocês. rs

    Já adianto que ainda não possuo nenhum BD para enviar como modelo, porque ainda não sei por onde começar.

    Gostaria de saber se é possível renomear as fotos de uma determinada pasta, tomando como referência o nome contido em uma consulta ou tabela. Conforme exemplo abaixo:

    [Resolvido]Renomear imagens Exempl10

    Ou seja, gostaria de renomear todas as fotos contidas em determinada pasta tomando como referência o nome existente, uma espécie de PROCV.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3685
    Registrado : 04/04/2010

    [Resolvido]Renomear imagens Empty Re: [Resolvido]Renomear imagens

    Mensagem  Avelino Sampaio em 5/9/2020, 22:17

    Olá!

    tem uma instrução nas profundezas do Access, chamada de NAME ...AS....  Com ela o senhor poderá renomear os arquivos da sua pasta.  Clique AQUI e veja neste meu artigo.

    Crie um recordset no vba e usar o loop While(), para percorrer os registros da tabela e ir renomeando.

    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Renomear imagens Empty Re: [Resolvido]Renomear imagens

    Mensagem  WS_Lima em 6/9/2020, 15:27

    Olá caro Avelino, muito obrigado pelo retorno tão depressa.

    Infelizmente, eu não consegui entender como montar a instrução que você sugeriu... Pois ainda estou no nível bem iniciante e há muitas funções e recursos que não sei utilizar.

    Montei uma base com os dados bem simples e copiei o código que você informou no seu fórum, tentei utilizar a função "Call" mas não funcinou, e não não sei como faço para relacionar a tabela para buscar o nome de referência.

    Se não for pedir demais, poderia mostrar no exemplo como fazer?

    Desde já, muito obrigado pelo grande apoio.
    Anexos
    [Resolvido]Renomear imagens AttachmentTESTE_RENOMEAR_FOTOS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 6 vez(es)
    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Renomear imagens Empty Re: [Resolvido]Renomear imagens

    Mensagem  WS_Lima em 9/9/2020, 02:12

    Boa noite!
    Consegui utilizar a função NAME individualmente, só não consegui entender ainda como fazer a junção com o recordset.
    Peguei o exemplo do seu artigo, mas ainda não consegui interpretar para unir com o NAME AS.
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 236
    Registrado : 19/08/2010

    [Resolvido]Renomear imagens Empty Re: [Resolvido]Renomear imagens

    Mensagem  marcelo3092 em 9/9/2020, 15:42

    Bom dia colega seguinte eu ate me atrevi a fazer um exemplo aqui porém qual e o criterio da renomeação pois para alterar tem que sair o nome de algum lugar
    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Renomear imagens Empty Re: [Resolvido]Renomear imagens

    Mensagem  WS_Lima em 9/9/2020, 23:24

    Boa noite, Marcelo! Agradeço muito a participação.

    A referência virá de uma tabela, que vai estar disposta conforme coloquei no exemplo da Mensagem 1. Consegui utilizar a função NAME como já disse, mas estou com dificuldades para realizar o loop, e fazer a varredura na pasta para verificar se ainda existem arquivos a serem renomeados.

    Montei o que consegui até agora, rsrs está bagunçado mas creio que já dê para entender o objetivo.
    Anexos
    [Resolvido]Renomear imagens AttachmentTESTE_RENOMEAR_FOTOS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (48 Kb) Baixado 5 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3685
    Registrado : 04/04/2010

    [Resolvido]Renomear imagens Empty Re: [Resolvido]Renomear imagens

    Mensagem  Avelino Sampaio em 10/9/2020, 09:33

    Olá!

    1- Todos os arquivos estarão sempre em uma única pasta ?
    2- Se houver mais de uma pasta, o código terá que varrer as pasta para encontrar ?
    3- As pastas podem variar de localidade e nome ?
    4- após encontrar e renomear os arquivos, o que deverá acontecer com os campos da tabela ? Haverá algum campo de status, de que a renomeação ocorreu ou o campo2 deverá ser substituído pelo novo nome ?

    Explique melhor sobre a organização de pastas e o que exatamente a rotina terá que executar para renomear os arquivos.

    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Renomear imagens Empty Re: [Resolvido]Renomear imagens

    Mensagem  WS_Lima em 10/9/2020, 13:19

    Olá, bom dia! Sobre os questionamentos:
    1-a varredura será realizada em uma única pasta por vez, o caminho da pasta será definido no momento em que o comando for executado.
    2- não será necessário varrer pastas, apenas uma por vez.
    3-sim. As pastas vão variar de nome, mas a referência sempre será dada na tabela, que é um arquivo CSV que já vem em cada uma das pastas, e eu importo para renomear as imagens.
    4- não é necessário realizar nenhuma alteração na tabela após renomear as fotos, pois ela servirá apenas como referência e os dados nela contidos serão descartados para realizar novas varreduras.

    Na mensagem n°6, inseri o anexo de um exemplo que montei com o que consegui fazer até o momento.
    Eu consegui fazer com que renomeie os arquivos, mas de forma individual, só não consegui fazer com que o camando faça a varredura na pasta para renomear as demais fotos, ou seja, fazer o loop até que todas sejam renomeadas.
    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Renomear imagens Empty Re: [Resolvido]Renomear imagens

    Mensagem  WS_Lima em 23/9/2020, 01:51

    Olá novamente!

    Não consegui utilizar o comando loop para fazer a varredura, então montei da forma que consegui deduzir, e atendeu à minha necessidade. Segue para quem sabe ajudar outros com a mesma dúvida. Não é a maneira mais técnica, mas deu certo. rs

    Código:
    Sub sequenciaComandos2()
    On Error Resume Next

    Dim OldName, NewName
    OldName = linkPasta & "\" & Campo2
    NewName = linkPasta & "\" & NomeCampo2 & ".jpg" ' Define file names.
    Name OldName As NewName ' Rename file.

    Call tentativas
    Call proximoRegistro

    End Sub
    '==================================
    Sub tentativas()
    If IsNull(contagem2) Then
    contagem2 = 1
    Else
    If contagem2 = contagem Then
    MsgBox "Não foram encontradas mais imagens a serem renomeadas."
    Else
    contagem2 = contagem2 + 1
    End If
    End If
    End Sub
    '==================================
    Sub proximoRegistro()
    DoCmd.GoToRecord , tblFotosTXT2, acNext
    Call verificarRegistro
    End Sub
    '==================================
    Sub verificarRegistro()
    If contagem2 = contagem Then
    MsgBox "Varredura concluída com sucesso!", vbInformation, "Sucesso!"
    Else
    Call sequenciaComandos2
    End If
    End Sub

      Data/hora atual: 3/12/2020, 10:29