【发布时间】:2023-04-07 23:17:01
【问题描述】:
第一篇文章在这里,但我已经使用了这个网站的很多文章,我希望有人能提供帮助。我正在开发一个每个人都会在我的工作中使用的工具的项目。
If My.Settings.Version >= Newestversion Then
MsgBox("No Update Available!")
ElseIf My.Settings.Version < Newestversion Then
MsgBox("An update is available" & vbNewLine & "Update Now?", MsgBoxStyle.OkCancel)
If MsgBoxResult.Ok Then
'Download Exe'
If System.IO.File.Exists(("C:\Program Files (x86)\iSolved\iSolved Tech Tool\iSolvedTech.exe")) Then
System.IO.File.Delete("C:\Program Files (x86)\iSolved\iSolved Tech Tool\iSolvedTech.exe")
My.Computer.Network.DownloadFile("https://www.dropbox.com/s/lxn1ropdn101qa3/iSolvedTech.exe?dl=1", IO.Path.Combine("C:\Program Files (x86)\iSolved\iSolved Tech Tool", SaveExe))
ElseIf System.IO.File.Exists("C:\Program Files (x86)\iSolved\iSolved Tech Tool\iSolvedTech.exe") = False Then
My.Computer.Network.DownloadFile("https://www.dropbox.com/s/lxn1ropdn101qa3/iSolvedTech.exe?dl=1", IO.Path.Combine("C:\Program Files (x86)\iSolved\iSolved Tech Tool", SaveExe))
代码下载 .exe 文件没有任何问题,但是当我尝试从下载的 .exe 启动程序时出现以下错误:
我已经搜索了好几个小时,试图找出为什么它不能正确下载文件。甚至尝试在表单上使用嵌入式网络浏览器,但这不会将文件保存到需要重新启动的位置。任何帮助当然不胜感激。 我在写这个主题时注意到的另一件事是,即使在 MsgBox("No Update Available") 上点击 OK 时出现“No Update Available”,elseif 语句仍然会生效并下载文件。我在那里错过了什么吗?有没有办法区分这两个消息框?
【问题讨论】:
-
经过进一步的故障排除后,我发现它实际上并没有下载文件。 .exe 的占位符似乎在那里,但文件大小为 0kb。有没有办法让这段代码运行得更高以完全控制文件目录??
标签: .net visual-studio visual-studio-2017