我遇到一个很奇怪的问题,我在VB里有一段程序:
Dim i As Integer
Dim cmd As String
cmd = str & "arj.exe" + Chr(32) + "a" + Chr(32) + ph & "\gtwmsdb" + Chr(32) + str & "gtwmsdb.mdb"
i = WinExec(cmd, 0)
If i > 32 Then
MsgBox "数据上报完毕!", 0 + 64, "数据上报"
Else
MsgBox "对不起,没有找到相关文件", 0 + 16, "数据上报"
End If
在VB里运行时可以很好的执行,可以在指定的目录里找到压缩包,但我打包安装后可以执行完成,提示:数据上报完毕但却在指定的目录里找不到这个压缩包,为什么??请名师指点一下,小弟不胜感激!!!!
Dim i As Integer
Dim cmd As String
cmd = str & "arj.exe" + Chr(32) + "a" + Chr(32) + ph & "\gtwmsdb" + Chr(32) + str & "gtwmsdb.mdb"
i = WinExec(cmd, 0)
If i > 32 Then
MsgBox "数据上报完毕!", 0 + 64, "数据上报"
Else
MsgBox "对不起,没有找到相关文件", 0 + 16, "数据上报"
End If
在VB里运行时可以很好的执行,可以在指定的目录里找到压缩包,但我打包安装后可以执行完成,提示:数据上报完毕但却在指定的目录里找不到这个压缩包,为什么??请名师指点一下,小弟不胜感激!!!!
你可以查找一下有没有这个文件。
因为有可能是你的路径有问题了。
debug.pring str & "arj.exe" + Chr(32) + "a" + Chr(32) + ph & "\gtwmsdb" + Chr(32) + str & "gtwmsdb.mdb"
看是什么内容。
用相对路径 APP.PATH