以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  找不到应用程序  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154618)
--  作者：刘林
--  发布时间：2020/9/20 21:32:00
--  找不到应用程序
Dim ftp1 As New FtpClient
ftp1.Host=""
ftp1.Account = "ftpuser"
ftp1.Password = "admin"
Dim tb As Table = Tables("票据管理_table1")
If ftp1.Download(tb.Current("票据"),ProjectPath & "remotefiles" & tb.Current("票据"))=True
    Dim Proc As New Process \'打开PDF文件
    Proc.File = ProjectPath & "remotefiles" & tb.Current("票据")
    Proc.Start()
End If


老师，请问远程下载并打开PDF文件，在有的电脑上出现这个

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.11.3.1
错误所在事件：
详细错误信息：
找不到应用程序


但如果退出去找到这个文件，设置文件默认打开程序就可以了，现在的问题是，如果用户报不一定会这样去试，请问怎样来避免这个问题
--  作者：有点蓝
--  发布时间：2020/9/20 21:59:00
--  
只能做个提醒，试试

If ftp1.Download(tb.Current("票据"),ProjectPath & "remotefiles" & tb.Current("票据"))=True
try
    Dim Proc As New Process \'打开PDF文件
    Proc.File = ProjectPath & "remotefiles" & tb.Current("票据")
    Proc.Start()
Catch ex As Exception
MessageBox.Show("文件路径不正确，或者没有关联的应用程序!","提示",MessageBoxButtons.OK)
end try
End If
--  作者：刘林
--  发布时间：2020/9/20 22:03:00
--  
程序本来就有提示找不到应用程序，我的想是法，如没找到应用程序，有什么代码来实现将这个选定打开PDF文件的默认程序用代码给用户设置起，能实现直接打开
[此贴子已经被作者于2020/9/20 22:03:14编辑过]
--  作者：有点蓝
--  发布时间：2020/9/20 22:25:00
--  
这个没有办法设置。只能提醒用户安装pdf阅读器