- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 图片上传到FTP (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24151)
-- 发布时间：2012/10/5 16:07:00
-- 图片上传到FTP
请教.
表中,有"图片"列及""上传"列
"上传"列勾选时,将图片上传到FTP空间
"上传"列取消勾选时,将FTP空间上对应名称的图片删除.
请高手帮忙.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:远程图片.zip |
[此贴子已经被作者于2012-10-5 16:16:00编辑过]
-- 发布时间：2012/10/6 12:34:00
--
没有ftp地址，没法测试，大约的就是这样的:
If e.DataCol.Name = "上传" Then
If e.NewValue = True Then
If FileSys.FileExists(ProjectPath & "Attachments\\" & e.DataRow("图片")) Then
Network.UploadFile(ProjectPath & "Attachments\\" & e.DataRow("图片") , "ftp://zhanshang:138238@egridsoft.com/public/" & e.DataRow("图片"))
End If
Else
Dim ftp1 As new ftpclient
ftp1.host="128.169.143.96"
ftp1.Account = "foxuser"
ftp1.password = "136137138"
If ftp1.FileExists(e.DataRow("图片"))
ftp1.Delete(e.DataRow("图片"))
End If
End If
End If
你自己改改试试，放在表事件的DataColChanged中执行。
-- 发布时间：2012/10/6 19:27:00
--
是飞天流民老师么？