回 帖 发 新 帖 刷新版面

主题:VB复制自身到C盘

Private Sub Form_Load()
Dim a As String, b As String
a = App.Path & "\" & App.EXEName & ".exe"
b = "C:\" & "1.exe"
FileCopy a, b
End Sub
将以上工程编译为1.exe放在桌面,运行后说路径错误,是什么原因啊...

回复列表 (共4个回复)

沙发

我试了一下,没有出现错误啊

板凳

app.path返回值因操作系统而异,差别在于返回值后面有没有"\"
解决这问题,要采用变通的办法:
dim path as string
path=iif(right(app.path,1)="\",app.path,app.path & "\")
Dim a As String, b As String
a = path & App.EXEName & ".exe"
b = "C:\" & "1.exe"
FileCopy a, b

以上是高人的指点,但是我复制以上代码运行后还是报错,是什么原因啊.....

3 楼

唉,学习调试编程的一项重要内容。

1、出错在那行?
2、出错时,参数都是什么?例如:a、b什么的

你自己这样一看应该就能排除绝大多数问题。

4 楼

F8逐句调试把

我来回复

您尚未登录,请登录后再回复。点此登录或注册