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

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