为何不能进行自我复制(VB)?

来源:百度知道 编辑:UC知道 时间:2024/09/22 21:23:30
Private Sub Form_Load()
s1 = App.Path & "\" & App.EXEName & ".exe"
s2 = "c:\" & App.EXEName & ".exe"
FileCopy s1, s1
End Sub

我不知道错在啊里了呀?
每当我生存exe文件后,一运行就弹出提示:运行时错误’70’:
拒绝的权限
我当前的用户是系统的管理员呀?

有谁能解决此问题呀?

FileCopy s1, s2

真是初心啊。。。

当程序自己运行时候,不能用普通的方式复制,但应该可以用API方式复制吧
但可惜我不知道。你在网上找找看