... Pague apenas R$67,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


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: