vb中 如何让文件运行后自动复制到硬盘

Private Sub Form_Load()

FileCopy IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & App.EXEName & ".exe", "d:\" & App.EXEName & ".exe"
End Sub

我刚试过了，没问题的，你要先生成exe后再运行，就是个文件复制的过程，不需要知道名字，直接通过app.exename取得，有问题可以发消息我

---

Private Sub Form_Load()

FileCopy IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & App.EXEName & ".exe", "d:\" & App.EXEName & ".exe"
End Sub

我刚试过了，没问题的，你要先生成exe后再运行，就是个文件复制的过程，不需要知道名字，直接通过app.exename取得，有问题可以发消息我