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

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

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

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

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

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 & strfile As FILEPATH & Prefix & filenum & "." & FinalExtension

        End If

        Let strfile = Dir

    Loop

End Function

Tags: VBA, file, rename, folder, pasta, tips