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
Excel批量重命名文件
最新推荐文章于 2024-02-29 17:15:06 发布