以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [建议]关于FTPClient问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70793)

--  作者:jspta
--  发布时间:2015/6/29 11:58:00
--  [建议]关于FTPClient问题
几个使用过程中,及其严重的问题,不知道如何解决?
1. Root属性,
我如果使用一个全局的FTPClient变量,第一次连接没有问题,但是再重新进入同一个路径的时候,就会提示 “FTP路径不存在,请联系管理员修改”,如果换一个路径就又可以进入。(即登陆账号不变,仅改变Root路径名称,可以正常进入,但无法连续进入同一个路径,显然.DirExists的判断是有严重Bug的。
如果不能解决这个,意味着所谓的FTP管理设置动态设置根目录就是个笑话,加快FTP连接就更加不可能了。
  With FTPClient
                    .RootDir = "/" \'& FTPAccount
 
                    If .DirExists("\\" & FTPAccount) Then
                        .RootDir = "/" & FTPAccount
                    Else
                        MessageBox.Show("FTP路径不存在,请联系管理员修改")
                        Return
                    End If
  End With 
2. 无法设置或者改变下载路径
这个就真的没办法理解了,使用FTP是为了管理数据,怎么可能只会下载到Foxtable的文件夹下面?这个让开发者如何使用所谓的OpenManager界面给用户使用。




--  作者:大红袍
--  发布时间:2015/6/29 12:03:00
--  

1、建议统一用 / 不要用 \\

 

2、你可以动态改造,如

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52628&skin=0

 

 或者是,自己弄一个


--  作者:大红袍
--  发布时间:2015/6/29 12:06:00
--  

现在代码要改改了

 

Dim frm As Object = windows.Forms.Form.activeform
If frm IsNot Nothing Then  
    output.show(frm.name)
    If frm.name = "Class235" Then
        frm.controls("Button1").Visible = False
        frm.controls("Button2").Visible = False
        frm.controls("Button3").Visible = False
        frm.controls("cmbFTPPath").Visible = False
        frm.controls("Label1").Visible = False
        frm.controls("TextBox1").Visible = False
        frm.controls("C1FlexGrid1").height = 380       
    Else If frm.name = "Class234" Then
        frm.controls("cmbFTPPath").Visible = False
        frm.controls("Label2").Visible = False
        frm.controls("cmbFTPPath").Visible = False
        frm.controls("btnOpen").Visible = False
        frm.controls("btnOpenLocFolder").Visible = False
        frm.controls("Label1").Visible = False
        frm.controls("btnRefresh").Visible = False
        frm.controls("btnUpload").Visible = False
        frm.controls("btnDownload").Visible = False
        frm.controls("btnMakeDir").Visible = False
        frm.controls("btnRename").Visible = False
        frm.controls("btnDelete").Visible = False
        frm.controls("C1FlexGrid2").Visible = False
        frm.controls("C1FlexGrid1").top = 10
        frm.height = 380
    End If
End If