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

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

É 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 - Segurança máxima, usando o OPEN

Trabalhando com Registros - DAO e ADO

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

Vídeo - Aprenda sobre filtragens

Adquira o kit UsandoAccess e aprenda em alta velocidade

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

Integrando o Access com Servidor MySQL - Introdução

Desabilitando a faixa(ribbon) superior do Access

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

2 comentário(s)

Israel Nascimento 15/07/2020 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/2019 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