[Resolvido]Renomear imagens

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:



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

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.

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.

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

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.

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.

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