Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共1 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
873773115 发表于: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
共1 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.