- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]传统编辑窗口的FTP文件上传及文件地址维护 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111844)
-- 发布时间：2017/12/30 11:22:00
-- [求助]传统编辑窗口的FTP文件上传及文件地址维护
此主题相关图片如下：微信截图_20171230111544.png
想通过传统窗口的文件框双击后通过FTP方式上传本地文件到FTP某目录下，上传完成后直接将文件地址信息保存到该文本框中(\'送检内容\'字段)，烦请版主写个小例
-- 发布时间：2017/12/30 12:57:00
--
此主题相关图片如下：微信截图_20171230125346.png
在文本框或者能否实现双击后如上图插入文件的功能
[此贴子已经被作者于2017/12/30 12:57:52编辑过]
-- 发布时间：2017/12/30 20:40:00
--
参考：http://www.foxtable.com/webhelp/scr/1410.htm
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Upload("c:\\data\\Desert.jpg","\\update\\Desert.jpg") = True Then
e.Form.controls("Textbox1").text = "\\update\\Desert.jpg"
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If