Nothing

Dim MyFile, MyPath, MyName, NewPath


MyPath = "E:\A\"   ' 指定路径。
NewPath = "E:\B\"
MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。
Do While MyName <> ""   ' 开始循环。
   ' 跳过当前的目录及上层目录。
   If MyName <> "." And MyName <> ".." Then
      ' 使用位比较来确定 MyName 代表一目录。
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
         Debug.Print MyName   ' 如果它是一个目录，将其名称显示出来。
      Else
        Name MyPath & MyName As NewPath & MyName & Format("yyyymmdd")
      End If
   End If
   MyName = Dir   ' 查找下一个目录。
Loop

Nothing

楼上正解