求助各位重命名文件

gtz2712001

想请各位大神写一个VBA，遍历指定路径下文件夹及子文件夹，将后缀为.dtapart的文件名重命名。意即将文件名为08203937.pdf-{24c7aeb7-6535-45fd-8cb6-b3171e2d7cac}.dtapart的文件重命名为08203937.pdf也即将pdf后面的字符全删掉，再此先谢过！！！

xiangbaoan

Sub main_test() '没测试……无附件，不追问
Dim p$
Application.DisplayAlerts = False
p = ThisWorkbook.Path & "\" '在这里指明路径(当前文件所在文件夹)，含子文件夹，下含文件
Call s_ren(p)
Application.DisplayAlerts = True
End Sub
Sub s_ren(p)
Dim fso As Object, f, fld, sfd
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(p)
For Each f In fld.Files
    If Right(f.Name, 8) = ".dtapart" Then
        fso.getfile(f).Name = Split(f.Name, ".")(0) & ".pdf"
    End If
Next
For Each sfd In fld.SubFolders
    Call s_ren(sfd.Path)
Next
Set fso = Nothing
End Sub