两点要求，代码执行无效，请版主看看代码哪里错了
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
加好友 
发短信
Post By：2020/12/14 13:57:00 [显示全部帖子]
