VBA Batch File Rename

A VBA sub routine for batch renaming/moving/copying of files.

Sub RenameOrCopyFiles()

Dim OldNamesRange As Range
Dim NewNamesRange As Range

Dim NumberOfNames As Integer

Dim OldName As String
Dim NewName As String

Dim Task As String

    Set OldNamesRange = Range("OldNames")
    Set NewNamesRange = Range("NewNames")

    NumberOfNames = OldNamesRange.Rows.Count

    For I = 1 To NumberOfNames
        OldName = OldNamesRange.Cells(I, 1).Value
        NewName = NewNamesRange.Cells(I, 1).Value

        Task = "RENAME"

        If (Task = "RENAME") Then
            Name OldName As NewName
        Else
            FileCopy OldName, NewName
        End If
    Next I

End Sub

Sub RenameOrCopyFiles()

Dim OldNamesRange As Range

Dim NewNamesRange As Range

Dim NumberOfNames As Integer

Dim OldName As String

Dim NewName As String

Dim Task As String

Set OldNamesRange = Range("OldNames")

Set NewNamesRange = Range("NewNames")

NumberOfNames = OldNamesRange.Rows.Count

For I = 1 To NumberOfNames

OldName = OldNamesRange.Cells(I, 1).Value

NewName = NewNamesRange.Cells(I, 1).Value

Task = "RENAME"

If (Task = "RENAME") Then

Name OldName As NewName

Else

FileCopy OldName, NewName

End If

Next I

End Sub

Leave a Reply