フォルダ内のファイル名を一括で変更したい場合に有効です。
サンプルはdataフォルダ内にあるファイルのファイル名先頭に's_'を付加しています。
FileSystemObjectを利用して、Filesコレクションを参照し、ファイル名を取り出しています。

Public Sub Sample()
'ファイル名の先頭にすべて's_'を付ける

    Dim FSO As Object
    Dim DataDir As Object
    Dim myFiles As Object
    Dim fl As Object
    Dim myPath As String
    Dim oldFile As String
    Dim newFile As String
    
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    myPath = ThisWorkbook.Path & "\data"
    Set DataDir = FSO.GetFolder(myPath)
    Set myFiles = DataDir.Files
    For Each fl In myFiles
        oldFile = myPath & "\" & fl.Name
        newFile = myPath & "\" & "s_" & fl.Name
        FileCopy oldFile, newFile
        Kill oldFile
    Next fl
        
End Sub