主题：[求助]ftp如何直接连接到已有的绝对路径？

If e.Col.Name = "发布目录" Then
    e.Cancel= True
    If e.Row.IsNull("发布目录")= True Then
        Forms("FTP管理器").open
    Else
        vars("路径") = e.Row("发布目录")
        Forms("FTP管理器").open
    End If
    
     

然后去编写窗口的afterload事件

 

ftp1.RootDir = vars("路径")

If e.Col.Name = "发布目录" Then
    e.Cancel= True
    If e.Row.IsNull("发布目录")= True Then
        Forms("FTP管理器").open
    Else
        e.Col.FileManager.FTPclient.RootDir = e.Row("发布目录")
    End If

 

打开默认的ftp？

 

Dim ftp As New FtpClient
ftp.Host="192.168.1.35"
ftp.Account = "tester"
ftp.Password = "tester"
ftp.RootDir = e.Row("发布目录")
ftp.OpenManager

 看2楼

 

 在afterload事件判断一下 vars("路径") 就行啊

 

-------------

 

If e.Col.Name = "发布目录" Then
    e.Cancel= True

    vars("路径") = e.Row("发布目录")
    Forms("FTP管理器").open

    
     

然后去编写窗口的afterload事件

 

If vars("路径") = "" then

 

End If

 你加入msgbox看一下是否进入执行了代码啊。

 

 如果执行了，你再去看一下你的表名是不是写错了啊，是不是副本表

 你listview里面，是根据这句代码取值的

 

Dim sts As List(of String) = ftp.GetFileList(vars("zhygwjj"))

那你给它赋值啊，这么简单还不会？

 

 

 

 去 listview 里面，加入msgbox调试一下，肯定是你路径下没有文件

 那就是你路径有问题，直接写一个路径测试，

 

 比如 /待用户现场确认版本_产线禁止使用/2015

 最简单的测试，是换成一个最简单的路径去测试啊，然后慢慢复杂啊。

 

 能不能有点变通，有点进步？

 

 比如 直接写 /