Private Sub Command2_Click()
 Name Text1.text As Text2.Text
End Sub
Text1和Text2中已有正确的文件路径.
出错时，Name="Form1",怎么回事啊?

Private Sub Command1_Click()
  oldname = "c:\1.txt"
  newname = "c:\2.txt"
  Name oldname As newname
  MsgBox "success!"
End Sub
先在C盘新建一个文本文件1.txt
我这样能行.你自己看看你错在哪.