新建From1（窗体），新建Command1（按钮CommandButton），万万想不到是这个命令。代码：

Private Sub Command1_Click()
    Name App.Path & "\manongku.txt" As "C:\manongku123.txt"
End Sub