✔ Programação GLOBAL®: VBA Tips - Renomeando TODOS arquivos numa pasta

VBA Tips - Renomeando TODOS arquivos numa pasta - Renaming all files in a folder

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de 2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Ao descarregar umas 700 fotos de uma câmera, também precisei renomeá-las. Pode imaginar como seria rápido fazer isso?

Percebi que alterá-las manualmente, não era algo que estava interessado em fazer, então eu debrucei-me sob o VBA para resolver-me este "problema".

Este código percorrerá uma pasta e renomeará todos os arquivos nela.

Function ReFileName (Prefix As String, _

FILEPATH As String, _

nExtension As String, _

FinalExtension As String)



Dim strfile As String

Dim filenum As String

Dim SizeExtension As Integer



Let strfile = Dir(FILEPATH)

Let SizeExtension = Len(Replace(nExtension, ".", ""))

Do While strfile <> ""

Debug.Print strfile



If Right$ (strfile, SizeExtension) = nExtension Then

Let filenum = Mid$(strfile, Len(strfile) - 6, SizeExtension)



Name FILEPATH & _