Excel批量重命名文件

Sub Rename()
    Dim i As Integer
    Dim FileNames As Variant
    Dim FileCount As Integer
    Dim SourceFileName As String
    Dim DistFileName As String
    Dim CurrentDir As String
    FileNames = Application.GetOpenFilename("RealPlay, *.rmvb", , "打开文件", , True)
    CurrentDir = CurDir
   For i = 1 To UBound(FileNames)
     SourceFileName = FileNames(i)
     DistFileName = Replace(Replace(SourceFileName, "[六人行.第八季][", ""), "][圣城家园dream2008.cn][中英双字幕]", "")
     Name SourceFileName As DistFileName
   Next i
  
End Sub