여러 파일 이름 한꺼번에 바꾸기

Sub RenameFiles()

Dim MyFile As String

Dim NewName As String

Dim MyPath As String

Dim MyExtension As String

Dim FSO As Object

Dim MyObj As Object

Dim TodayDate As String

' Set the folder path to the "실적" folder on the desktop.

MyPath = Environ$("USERPROFILE") & "\Desktop\실적\"

' Create a file system object.

Set FSO = CreateObject("Scripting.FileSystemObject")

' Get the current date in the format of YYYYMMDD.

TodayDate = Format(Date, "yyyymmdd")

' Loop through each file in the folder.

For Each MyObj In FSO.GetFolder(MyPath).Files

' Get the file extension.

MyExtension = FSO.GetExtensionName(MyObj)

' Rename the file.

MyFile = Left(MyObj.Name, Len(MyObj.Name) - Len(MyExtension) - 1)

NewName = MyFile & "_" & TodayDate & "." & MyExtension

Name MyPath & MyObj.Name As MyPath & NewName

Next MyObj

End Sub