[建议]关于FTPClient问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

几个使用过程中，及其严重的问题，不知道如何解决？

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界面给用户使用。

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

2、你可以动态改造，如

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

或者是，自己弄一个

现在代码要改改了

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

主题：[建议]关于FTPClient问题