主题：关于显示-FTP远程文件的代码索取

 楼主，你说的是在webbrowser里显示ftp的文件列表，或者内容吧？参考下面的例子。

 如果要打开目录，地址可以这样写 ftp://gongling:1CCCEC22128b97@222.216.28.13/gongling/web/

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:webbrowser直接显示ftp文件例子.foxdb

 代码不需要更改，你只需要设置一下列属性，扩展成文件列。

http://www.foxtable.com/help/topics/2693.htm

或者更改成固定路径，如下代码，ftp的用户名和密码要写正确

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim tr As Row = Tables("文件管理").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Dim path As String = "ftp://用户名:密码@ip地址" & dr("文件名称")
    e.Form.Controls("WebBrowser1").Address = path
End If

以下是引用wealthwind在2014-4-17 13:56:00的发言：
老师能否帮我将例子写好，有些地方，我确实有所不会，~劳烦您了

你的用户名是什么？密码是什么？

看了一下，你的密码要一下，不能带有@符号，比如你的密码改成123456，就用下面的代码

空白问题，你需要看一下这里。

重要提示：

1、如果执行上面代码的时候，没有在WebBrowser显示Word报表，而是在一个新的IE窗口显示，那么请双击Foxtable目录下的Office.reg文件，将其添加到注册表中。
2、在WebBrowser显示的Word菜单缺少包括打印命令的程序菜单，你可以按快捷键“Ctrl+P”打印，或者自定义word的快速访问栏，加入打印命令加上去。

呵呵，直接写确实不行。你参考31楼的代码。静心看完整个帖子。

试试这样写

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim tr As Row = Tables("文件管理").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Dim ftp1 As new ftpclient
    ftp1.host="120.198.124.195"
    ftp1.Account = "und8042"
    ftp1.password = "und8042ssa"
    If ftp1.Download(dr("文件名称"),"c:\data\临时文件.doc") = True Then
        e.Form.Controls("WebBrowser1").Address = "c:\data\临时文件.doc"     
    Else
        Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

再看看这里，看[重要提示] http://www.foxtable.com/help/topics/2903.htm