主题：FTP文件管理

此主题相关图片如下：qq图片20170830115516.png

那就试试

 

If ftp1.Upload(ProjectPath &  "RemoteFiles\" & dr("第六列"),"/档案管理/abc/" & dr("第六列")) = True Then

 

If ftp1.Upload(ProjectPath &  "RemoteFiles\" & dr("第六列"),"/abc/" & dr("第六列")) = True Then

20楼的第二行代码可以使用，希望进一步修改为If ftp1.Upload(ProjectPath &  "RemoteFiles\" & dr("第六列"), " dr("第五列") /" & dr("第六列")) = True Then ，但是不让保存，没有办法使用？该怎么修改？

msgbox("/" & dr("第五列") & "/" & dr("第六列"))

 

If ftp1.Upload(ProjectPath &  "RemoteFiles\" & dr("第六列"), "/" & dr("第五列") & "/" & dr("第六列")) = True Then

怎么用按钮打开ftp上指定的文件

 

先下载，然后再打开下载后的文件 http://www.foxtable.com/webhelp/scr/0353.htm

 

以下目录树NodeMouseDoubleClick事件中的代码，以下代码关键是黄色部分，不知道怎么找到ftp中文件的路径，以下代码该怎么修改？

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"

 

Dim Proc As New Process '定义一个新的Process

msgbox(e.node.Text)

Dim dr As DataRow = DataTables("文件文档").find("文档名称 = '" & e.node.Text & "'")

If dr IsNot Nothing Then

    msgbox(dr("位置").replace("/","\"))

    Proc.File = dr("位置").replace("/","\") '指定要打开的文件

    Proc.Start()

End If

 

必须先下载，ftp的路径你存放的你不知道在哪？然后再打开下载后的文件。

Dim ftp1 As New FtpClient
Dim files As New List(of String)
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
Dim Proc As New Process '定义一个新的Process
Dim dr As DataRow = DataTables("文档").find("文档名称 = '" & e.node.Text & "'")
If dr IsNot Nothing Then
    Dim sts As String = dr("位置").replace("/","\")
    msgbox(ProjectPath & "RemoteFiles" & sts )
    If ftp1.Download(dr("位置"),ProjectPath & "RemoteFiles" & sts ) = True Then
        msgbox(dr("位置").replace("/","\"))
        Proc.File =  ProjectPath & "RemoteFiles" & sts  '指定要打开的文件
        Proc.Start()
        Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

上述代码提示下载失败，是什么原因？黄色代码是否有什么问题？

1、你dr("位置")的值是什么？是不是你ftp的路径？

 

2、直接写成固定的路径是否有问题？

 

If ftp1.Download("abc/efg/test.jpg", ProjectPath & "RemoteFiles/test.jpg") = True Then