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

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

老师，具体编码能否帮我编辑一下。

我要达到的效果是，

远程FTP不允许这样直接打开的.

重要提示：

1、如果执行上面代码的时候，没有在WebBrowser显示Word报表，而是在一个新的IE窗口显示，那么请双击Foxtable目录下的Office.reg文件，将其添加到注册表中。

回答：没有在新的IE窗口显示，临时文件夹RemoteFiles，也是空的。

说了.远程FTP不允许这也做

我的意思是，通过FTP下载回来后，建成临时文件夹，然后通过浏览器打开临时文件夹里面的文件，如果浏览器切换至其他文件，刚刚打开的文件就自动删除

 

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

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

如何实现，从表生成目录树，然后从目录树节点，点击触发，从FTP空间下载文件到临时文件夹，然后临时文件在webbrower1中打开，如果切换文件后自动删除临时文件夹里面的文件；；

 

下面这段代码不行，能否帮我看看，各位老师

 

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

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