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

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 - SysControle - Controle de Usuarios

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

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Criando Ribbons parte 1  - Conhecendo a estrutura Xml

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

1 comentário(s)

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