Dim Flm As WinForm.FileManager = e.Form.Controls("FTP文件浏览器")
'MESSAGEBOX.SHOW(Flm.FTPclient.Host)
Dim ftp As New FTPClient
FTP.Host = e.Form.Controls("Host").Value
FTP.Account = e.Form.Controls("Account").Value
FTP.Password = e.Form.Controls("Password").Value
FTP.RootDir = e.Form.Controls("RootDir").Value
Flm.FTPclient = FTP
当修改文本框的内容，再次点击测试，
动态设置FileManager的FTPClient 没有改变
第1次设置根目录：/ZTCY/CMIDJPG/
点击测试按钮，然后，点击管理，能正常连接FTP
第2次设置根目录：/ZTCY/
点击测试按钮，然后，点击（FTP文件浏览器的）管理，不能切换到根目录
但MESSAGEBOX.SHOW 提示显示
MESSAGEBOX.SHOW(Flm.FTPclient.RootDir) 为：/ZTCY/
点击管理按钮，进入后，还是第1次的根目录：/ZTCY/CMIDJPG/
[此贴子已经被作者于2022/9/12 10:04:55编辑过]
加好友 
发短信
Post By：2022/9/12 9:25:00 [只看该作者]
