Usando a instrução NAME do Access para renomear arquivos

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.

Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.

Open v3

É raramente utilizada, mas não custa nada você saber que existe. Uma vez precisei renomear todos os arquivo JPG de uma pasta, acrescentando o ano 2013. Veja o procedimento utilizado e atente para os comentários:

Public Sub fncRenomearJpg(strCaminho as string, Ano as Integer)
Dim strArquivo As String
Dim strMod as String
'---------------------------------------------------

'Carrega todos os arquivo jpg na variável strArquivo

'----------------------------------------------------
strArquivo = Dir$(strCaminho & "*.jpg")

'-------------------------------------------------------------------

'Percorre a lista de arquivos jpg, armazenada na variável strArquivo

'--------------------------------------------------------------------
Do While Len(strArquivo) > 0

    '---------------------------------------------

    'Acrescenta ao nome do arquivo o ANO informado

    '---------------------------------------------

    strMod = strCaminho & Replace(strArquivo, ".", "_" & Ano & ".")

    '---------------------------------------------------------

    'Renomeia o arquivo utilizando a instrução NAME do Access

    '---------------------------------------------------------
    Name strCaminho & strArquivo As strMod

    '--------------------------------------

    'Passa para o arquivo seguinte da lista

    '--------------------------------------
    strArquivo = Dir$()
Loop
MsgBox "Arquivos renomeados com sucesso!", vbInformation, "Aviso"
End Sub

Chamando pelo procedimento:

fncRenomearJpg "c:\inter\Imagens\",2013

Bom estudo!

Os dez artigos mais visitados

MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access

Vídeo - Controle personalizado de Acesso de Usuários

Vídeo - Aprenda sobre filtragens

Vídeo - Segurança máxima, usando o OPEN

Uma ajuda para quem está começando um negócio ou um projeto

Integrando o Access com Servidor MySQL - Introdução

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Programação de relatórios - Parte 1

Como carregar o seu menu sem que ele vá para lista de suplementos

Adquira o kit UsandoAccess e aprenda em alta velocidade

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |

3 comentário(s)

Pedro Simões Valério 01/12/2023 08:52:52

Só tive que entender bem o que ele estava fazendo.
Renomeei 4.172 arquivos de uma só vez!!!

Valeu msm. 😁

Israel Nascimento 15/07/2021 13:40:31

Olá, com essa linha de código ou similar consigo alterar a extensão dos arquivos. Exemplo, tenho arquivos em .TXT e preciso alterar para .DAT
Hoje tenho que salvar como, um a um.

Edson Rodrigues 16/07/2020 19:18:55

Muito interessante, para o que eu realmente precisava foi mais imples ainda, eu precisava apenas renomear um arquivo simples, usei apenas "Name strCaminho & strArquivo As strMod" sendo que na minha realidade ficou "Name Texto8 As Texto10" (nome antigo As novo nome)

Usando Access

Usando a instrução NAME do Access para renomear arquivos