Private Sub Form_Click()
Dim lujing As String
lujing = InputBox("请输入路径", "输入")
FileCopy App.Path + "\工程1.exe", lujing
End Sub

自身的文件名不一定为工程1,应该这样写:

Private Sub Form_Click()
Dim lujing As String
lujing = InputBox("请输入路径", "输入")
FileCopy App.Path + "\" + App.EXEName + ".exe", lujing
End Sub