Foxtable(狐表)用户栏目专家坐堂 → 求助,打开文件时弹出下载文件对话框


  共有23人关注过本帖树形打印复制链接

主题:求助,打开文件时弹出下载文件对话框

帅哥哟,离线,有人找我吗?
873773115
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:316 积分:2944 威望:0 精华:0 注册:2017/11/5 13:39:00
求助,打开文件时弹出下载文件对话框  发帖心情 Post By:2025/5/4 17:23:00 [只看该作者]

 老师。用下面代码打开文件时,如果本地存在文件,则不会正常显示,而是弹出一个是否保存,或者打开对话框是
图片点击可在新窗口打开查看此主题相关图片如下:1746350507864.png
图片点击可在新窗口打开查看
怎么回事?
       

    sr = ProjectPath & "RemoteFiles\文件\" & r("名称")
            
            If FileSys.FileExists(sr) = False Then
                Dim ftp As New FtpClient
                ftp.Host = Vars("ip")
                ftp.Account = "ftpuser"
                ftp.Password = "a545586820."
                ftp.ChangeDir("\财务\客户")
                ftp.Download(r("名称"), sr, True)
                
                If ftp.Download(r("名称"), sr, True) = False Then
                    MessageBox.Show("下载失败", "提醒")
                    Return
                End If
            End If
            e.Form.Controls("Wer").Address = sr

 回到顶部