以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎么用代码删除服务器储存的文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53309)
--  作者：zouxinhao
--  发布时间：2014/7/4 15:58:00
--  [求助]怎么用代码删除服务器储存的文件
如题，现在发现把列属性里面的自动删除附件和自动更新文件都设置成TRUE后还是删除不了后台储存的文件，请问有什么方法在删除行时一并删除服务器上的对应文件？
--  作者：有点甜
--  发布时间：2014/7/4 16:00:00
--  
以下是引用zouxinhao在2014-7-4 15:58:00的发言：
如题，现在发现把列属性里面的自动删除附件和自动更新文件都设置成TRUE后还是删除不了后台储存的文件，请问有什么方法在删除行时一并删除服务器上的对应文件？

 

需要你编写代码。在DatarowDeleting事件写入删除代码

 

http://www.foxtable.com/help/topics/1410.htm

 

 

http://www.foxtable.com/help/topics/2717.htm

 
--  作者：Bin
--  发布时间：2014/7/4 16:00:00
--  
在删除行的时候编码删除
[此贴子已经被作者于2014-7-4 16:00:44编辑过]
--  作者：zouxinhao
--  发布时间：2014/7/4 20:15:00
--  
Dim ftp1 As New FtpClient
ftp1.Host="196.168.1.223"
ftp1.Account = "erpftp"
ftp1.Password = "zyxlerpftp"
MessageBox.Show(e.DataRow("原文档"))
If ftp1.DeleteDir(e.DataRow("原文档"), True) = True Then
    Messagebox.show("删除完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
  这样写为什么会是删除失败？e.DataRow("原文档")=\'/projectfiles/upload/Drawing/files/Splash.jpg\'
--  作者：zouxinhao
--  发布时间：2014/7/5 11:14:00
--  
有人帮忙解决下么？
--  作者：老头
--  发布时间：2014/7/5 13:58:00
--  

   如果列属性设置了ftp属性，就这样干。

    If e.DataTable.DataCols("原文档").FTPClient.DeleteFile(e.DataRow("原文档")) = True Then
        Messagebox.show("删除完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
--  作者：Bin
--  发布时间：2014/7/5 14:00:00
--  
用 DeleteFle