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

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

 

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

请问老师，

这个是哪里错误了，还是访问错误

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim tr As Row = Tables("文件管理").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Dim ftp As FTPClient = DataTables("文件管理").DataCols("文件名称").FTPClient
    Dim path As String = "ftp://120.198.124.195" & ftp.Account & "und8042" & ftp.Password & "@120.198.124.195/"
    e.Form.Controls("WebBrowser1").Address = path
End If

请问老师，为什么你修改后的案例，还是显示
此主题相关图片如下：360截图20140417134621890.jpg

老师能否帮我将例子写好，有些地方，我确实有所不会，~劳烦您了

 

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

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

 

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://und8042:123456@120.198.124.195" & dr("文件名称")
    e.Form.Controls("WebBrowser1").Address = path
End If

此主题相关图片如下：360截图20140417142533046.jpg

 看17楼，改一下密码。

老师您好~~，刚刚这段代码

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://und8042:und8042ssa@120.198.124.195" & dr("文件名称")
    e.Form.Controls("WebBrowser1").Address = path
End If

 

是可以了，看看了文件瞬间下载，但下载完毕后，不显示文件，只是显示以下空白框

此主题相关图片如下：360截图20140417144800734.jpg