可将代码改成如下试试:
Sub test()
Dim MyFile, MyPath, MyName, NewPath
Dim sName0$, sName1$
MyPath = "E:\A\" ' 指定路径。
NewPath = "E:\B\"
MyName = Dir(MyPath) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
sName0 = Split(MyName, ".")(0)
sName1 = "." & Split(MyName, ".")(1)
Name MyPath & MyName As NewPath & sName0 & Format(Now, "yyyymmdd") & sName1
MyName = Dir ' 查找下一个目录。
Loop
End Sub