...
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
Antes de iniciar sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.
É 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 - Programação de relatórios - Parte 1
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Criando Ribbons parte 1 - Conhecendo a estrutura Xml
Como carregar o seu menu sem que ele vá para lista de suplementos
| Não há comentário |