我想用远程升级，出现了这个窗口。
此主题相关图片如下：{j8y{34}j_0~m}6r7v)e(9s.png

我如果用这样的代码下载，是没有问题的。

Dim ftp1 As new ftpclient
ftp1.host= Vars("ip")
ftp1.Account = "Administrator"
ftp1.password = "Gzhito20120401"
If ftp1.FileExists("\\zr\\update.txt") Then
    If ftp1.FileExists("\\zr\\update.txt") Then
        If ftp1.Download("\\zr\\update.txt",ProjectPath & "COA\\update.txt") = True Then
            MessageBox.show("下载成功")
        Else
            MessageBox.show("下载失败,请重新再试!")
        End If
    End If
End If

这样没有问题，可以下载的。

但我写成下载的：UpdatePath = "ftp://Administrator:Gzhito20120401@" & Vars("ip") & "/zr"

就会出现这个窗口，是什么原因啊？哪里写错了？

msgbox看一下

msgbox(UpdatePath)

然后你在IE浏览器那里直接访问试试

你ftp搭建有问题，百度答案

http://www.baidu.com/baidu?wd=%D3%A6+pasv+%C3%FC%C1%EE%B5%C4%C7%EB%C7%F3%A3%AC%B7%FE%CE%F1%C6%F7%B7%C5%BB%D8%C1%CB%D2%BB%B8%F6%D3%EBFTp&tn=monline_4_dg

大红袍老师

  研究了一下，现在基本搞定了。就是搞不定防火墙。如果开了就不行，关了就可以。我已经把端口和程序都允许通过了，为什么还是不行？防火墙要怎么设啊？

被动方式的话，你要允许多个的端口才行的，也就是你被动方式设置的那些随机的端口，都要允许通过。

大红袍老师

我已经按你给资料上面的说明，把1024-65355 的端口都通过了，为什么还是不行？