主题：创建与删除文件夹的问题

请教：我在

Dim dr As DataRow = e.DataRow
If dr.IsNull("简称") Then 

     MessageBox.Show("简称不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
     e.Cancel = True
Else
     e.SubFolder = dr("简称")

End If

向文件型、多文件型、以及图片型列中添加文件的时候创建一个以“简称”列的内容为文件夹名称。

我现在有个问题，如果我在删除这条数据时，如何同时删除已经创建了的文件夹呢？

DeleteDirectory

删除目录

语法

DeleteDirectory (Directory, showUI, recycle)

例如：

czy老师。这个代码我看了，
我之前使用了以“简称”作为文件夹名称
Dim dr As DataRow = e.DataRow
If dr.IsNull("简称") Then

     MessageBox.Show("简称不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
     e.Cancel = True
Else
     e.SubFolder = dr("简称")

End If

我需要增加一个判断，判断Attachments文件夹下是否存在以‘简称’作为文件夹名称的文件夹。如果有则删除，

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

狐爸，我不懂得如何先定义这个以‘简称’作为文件名的代码。

能否写完整一些，我也是很认真的看帮助文档，实在没看明白呀。

'DataRowDeleting事件

If FileSys.DirectoryExists(ProjectPath & "Attachments\" & e.DataRow("简称")) Then
    FileSys.DeleteDirectory(ProjectPath & "Attachments\" &  e.DataRow("简称"),2,3)
End If

感谢CZY老师