- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 用代码动态设置FileManager的FTPClient不起作用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179816)
-- 发布时间：2022/9/12 9:25:00
-- 用代码动态设置FileManager的FTPClient不起作用
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编辑过]
-- 发布时间：2022/9/12 10:11:00
--
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
FTP.Changedir(e.Form.Controls("RootDir").Value)
Flm.FTPclient = FTP
另外要同时更改文件管理器控件和列属性的设置
-- 发布时间：2022/9/12 12:54:00
--
FTP.Changedir(e.Form.Controls("RootDir").Value)
增加了这个代码，还是一样，无法设置到新的根目录，用新的密码等等……
-- 发布时间：2022/9/12 12:56:00
--
[此贴子已经被作者于2022/9/12 12:56:49编辑过]
-- 发布时间：2022/9/12 12:57:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:ftp配置.rar |
-- 发布时间：2022/9/12 14:29:00
--
文件管理器控件的管理按钮需要关闭窗口重新打开才有效