vb 如何判断程序是否在压缩包里运行?如果是,则提示:请先解压文件,在运行...
1个回答
展开全部
如果程序是在压缩包里直接双击运行的，那么它的当前所在文件夹（App.Path）就肯定是压缩包的临时解压文件夹，所以你的程序只要检测App.Path就可以知道是否在压缩包里直接运行的。
问题是压缩包种类有多种多样的（RAR、ZIP、7z等），而每种类型的临时文件夹命名规则各不相同。如果能强制指定一种类型比如RAR就好办得多了，下面是代码示例：
Private Sub Form_Load()
Dim ds() As String
ds = Split(App.Path, "\")
If Left(ds(UBound(ds)), 3) = "Rar" Then
MsgBox "请先解压文件再运行！"
End
End If
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
