wshzw

可将代码改成如下试试：
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