Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]FTP删除后台文件和目录


  共有2222人关注过本帖树形打印复制链接

主题：[求助]FTP删除后台文件和目录
帅哥哟，离线，有人找我吗？
suliao9641
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：637 威望：0 精华：0 注册：2013/3/28 14:15:00 		[求助]FTP删除后台文件和目录  发帖心情 Post By：2020/12/14 13:57:00 [只看该作者]

两点要求，代码执行无效，请版主看看代码哪里错了
1.删除文件管理器里的图片时，同时删除后台FTP图片
2.删除行时，同时删除后台编号的文件夹。

图片点击可在新窗口打开查看此主题相关图片如下：删除附件.png
图片点击可在新窗口打开查看

If e.DataCol.name = "图片" Or e.DataCol.name = "文件" Then
    Dim p As String="\图片文件\" & e.DataTable.Name & "\" & e.DataRow("编号")
    Dim ftp As New FTPClient
    ftp.host=vars("FTP_ip地址")
    ftp.Account =vars("FTP_账号")
    ftp.password =vars("FTP_密码")
    ftp.Port= vars("FTP_端口")
    If ftp.DeleteFile(p & "\" & e.FileName) = True Then
        Messagebox.show("删除完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

全局表事件BeforeDeleteFile事件的代码无效。删除文件的时候感觉代码没有执行一样


图片点击可在新窗口打开查看此主题相关图片如下：删除行.png
图片点击可在新窗口打开查看

Dim p As String="\图片文件\" & e.DataTable.Name & "\" & e.DataRow("编号")
Dim ftp As New FTPClient
ftp.host=vars("FTP_ip地址")
ftp.Account =vars("FTP_账号")
ftp.password =vars("FTP_密码")
ftp.Port= vars("FTP_端口")
If ftp.DeleteDir(p, True) = True Then
    Messagebox.show("删除完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/14 14:10:00 [只看该作者]

我测试没有问题，确定ftp路径是i正确的
msgbox(p & "\" & e.FileName)

msgbox("\图片文件\" & e.DataTable.Name & "\" & e.DataRow("编号"))

 回到顶部
帅哥哟，离线，有人找我吗？
suliao9641
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：637 威望：0 精华：0 注册：2013/3/28 14:15:00 		  发帖心情 Post By：2020/12/14 14:47:00 [只看该作者]

这个两个MSGBOX代码我加进去了，但是，操作的时候都没有反应。根本就不弹出来
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/14 14:54:00 [只看该作者]

只能说明操作的根本不是写了事件的表。

 回到顶部
帅哥哟，离线，有人找我吗？
suliao9641
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：637 威望：0 精华：0 注册：2013/3/28 14:15:00 		  发帖心情 Post By：2020/12/14 16:02:00 [只看该作者]

全局表事件不行么。需要窗口表写代码么

图片点击可在新窗口打开查看此主题相关图片如下：全局表事件.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/14 16:13:00 [只看该作者]

没有开启事件：http://www.foxtable.com/webhelp/topics/0671.htm

窗口afterload，或者fill之后
DataTables("表A").GlobalHandler.BeforeDeleteFile = True
 回到顶部
帅哥哟，离线，有人找我吗？
suliao9641
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：637 威望：0 精华：0 注册：2013/3/28 14:15:00 		  发帖心情 Post By：2020/12/15 9:39:00 [只看该作者]

全局表事件AfterLoad事件，加上下面代码问题解决
For Each dt As DataTable In DataTables
    dt.GlobalHandler.BeforeDeleteFile = True
    dt.GlobalHandler.DataRowDeleted = True
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询