... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


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

É 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!


 

 


Não há comentário

Envie seu comentário: