主题：如何删除FTP目录里的文件

If FileSys.FileExists( ProjectPath & "RemoteFiles\sctuzhi" & e.DataRow("原始图纸")) Then  '如果指定的文件存在
    FileSys.DeleteFile(ProjectPath & "RemoteFiles\sctuzhi" & e.DataRow("原始图纸"),2,2) '则彻底删除之
End  If

 

If FileSys.FileExists("RemoteFiles\sctuzhi\" & e.DataRow("原始图纸")) Then  '如果指定的文件存在
    FileSys.DeleteFile("RemoteFiles\sctuzhi\" & e.DataRow("原始图纸"),2,2) '则彻底删除之
End  If

 

还是写在

BeforeDeleteFile

事件里吗?

 

 呃，肯定要写在 BeforeDeleteFile

动态目录21楼写的对吗

msgbox(ProjectPath & "RemoteFiles\sctuzhi" & e.DataRow("原始图纸"))

 

If FileSys.FileExists( ProjectPath & "RemoteFiles\sctuzhi" & e.DataRow("原始图纸")) Then  '如果指定的文件存在
    FileSys.DeleteFile(ProjectPath & "RemoteFiles\sctuzhi" & e.DataRow("原始图纸"),2,2) '则彻底删除之
End  If

e.DataRow("原始图纸")里有三个文件， 如何删除要删除的那个

e.FileName不是有信息的么？

 

msgbox(FileSys.GetName(e.FileName))

24楼的代码里没有e.fileName

 我叫你弹出filename看一下，合成到24楼的代码里面去啊，你要学会变通。

将代码中的 e.DataRow("原始图纸")，替换为e.filename，就可以啊。

If e.DataCol.name = "图纸文件" Then
    Messagebox.show("服务器里的此文件将被彻底删除!确定删除此文件吗!","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information)= DialogResult.Yes Then
    Dim result As Boolean = e.DataCol.FTPClient.DeleteFile(e.FileName)
    Messagebox.show("删除完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

YES就删除， NO就不删除， 如何更改这段代码