主题:VB复制自身到C盘
xyouzhou
[专家分:0] 发布于 2009-04-06 20:41:00
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个回复)
沙发
一江秋水 [专家分:9680] 发布于 2009-04-07 08:02:00
我试了一下,没有出现错误啊
板凳
xyouzhou [专家分:0] 发布于 2009-04-07 22:19:00
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 楼
老大徒伤悲 [专家分:29120] 发布于 2009-04-08 08:17:00
唉,学习调试编程的一项重要内容。
1、出错在那行?
2、出错时,参数都是什么?例如:a、b什么的
你自己这样一看应该就能排除绝大多数问题。
4 楼
15962287 [专家分:0] 发布于 2009-04-25 20:16:00
F8逐句调试把
我来回复