bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Usando a instrução NAME do Access para renomear arquivos
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!


 

 


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)


Envie seu comentário: