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

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

是9月19日更新的新内容

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

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

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

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

ftp1.Download("", "")

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

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

代码就那几句，

我上传一个RAR文件测试，没有出现这样的下载提示窗口！！

就是Office 的事，重装2003正常，真烦，难道Foxtable 对盗版支持的还要好些

这是事实，ftp文件下载完成，2013自动打开，设置的窗口Show都 Show 不出来！

终于Show出来了，Office2013设置