主题：[求助]如何取消FTP下载窗口的显示

如何取消FTP下载窗口的显示，按写的代码进行静默下载？

 

此主题相关图片如下：下载提示窗口.png

  如果是按写的代码下载，根本就不会有这个提示。

是9月19日更新的新内容

 

此主题相关图片如下：919更新.png

 如果是ftp客户端，那么就不是你自己写代码下载啊。

 

 你点击下载的时候，按钮的代码是foxtable写死了的。

更新前运行正常，现在弹出 提问的这个窗口，不能在自定义的窗口中打开，而是用外部程序打开！

BeforeOpenFile：

If Forms("文件管理器").Opened
    e.Cancel = True
    Dim fm As WinForm.FileManager = Forms("文件管理器").Controls("FileManager1")
    If fm.SelectedItem.SubString(fm.SelectedItem.LastIndexOf(".")+1) = "doc" OrElse fm.SelectedItem.SubString(fm.SelectedItem.LastIndexOf(".")+1) = "docx"
        Forms("Word预览").Open
    ElseIf fm.SelectedItem.SubString(fm.SelectedItem.LastIndexOf(".")+1) = "xls" OrElse fm.SelectedItem.SubString(fm.SelectedItem.LastIndexOf(".")+1) = "xlsx"
        Forms("Excel预览").Open
    Else
        e.Cancel = False
    End If
End If

在Forms("Word预览")窗口 AfterLoad :

If Forms("文件管理器").Opened  
    Dim fm As WinForm.FileManager = Forms("文件管理器").Controls("FileManager1")
    If ftp1.FileExists(fm.SelectedItem)
        If  ftp1.Download(fm.SelectedItem,ProjectPath  & "MyFolder\" & fm.SelectedItem.SubString(fm.SelectedItem.LastIndexOf("/")+1),True) = True Then  '下载到项目所在目录,只取文件名
            e.Form.Controls("WebBrowser1").basecontrol.Navigate(ProjectPath & "MyFolder\" & fm.SelectedItem.SubString(fm.SelectedItem.LastIndexOf("/")+1))  '
        End If
    Else
        messagebox.Show("此文件不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Form.Close
    End If
End If

你的意思是执行这个有错？

 

ftp1.Download("", "", true)

 我测试并没有你那个问题。

这两个都试了，一样的现象。另外，不知是否与Office 2013有关？

ftp1.Download("", "", true)

 

ftp1.Download("", "")

Office 2013 专业增强版，校园先锋 官方购买的。

如果与Office 2013 有关，那又如何办呢？

和office无关，你执行download的时候这样子？这个是不可能的。