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

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!


 

 


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)


Envie seu comentário: