以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  创建与删除文件夹的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15550)
--  作者：kevin
--  发布时间：2011/12/30 21:39:00
--  创建与删除文件夹的问题

请教：我在

BeforeAttachFile  事件中写入如下代码：

 

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

 

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

 

我现在有个问题，如果我在删除这条数据时，如何同时删除已经创建了的文件夹呢？
--  作者：czy
--  发布时间：2011/12/30 22:08:00
--  

DeleteDirectory

删除目录

语法

DeleteDirectory (Directory, showUI, recycle)

参数 说明
Directory 要删除的目录。
showUI 整数型，是否以直观方式跟踪操作的进度，可选值:

2: 只显示错误对话框，隐藏进度对话框
3: 显示进度对话框和所有错误对话框。

recycle 整数型，是否将删除的目录发送到回收站，可选值:

2: 永久删除文件或目录
3: 将目录发送到回收站。

例如：

FileSys.DeleteDirectory("C:\\MyFolder",3,3)

　
--  作者：kevin
--  发布时间：2011/12/30 22:14:00
--  

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文件夹下是否存在以‘简称’作为文件夹名称的文件夹。如果有则删除，
--  作者：狐狸爸爸
--  发布时间：2011/12/30 22:20:00
--  

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

 
--  作者：kevin
--  发布时间：2011/12/30 22:24:00
--  

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

 

能否写完整一些，我也是很认真的看帮助文档，实在没看明白呀。
--  作者：czy
--  发布时间：2011/12/30 22:24:00
--  

\'DataRowDeleting事件


If FileSys.DirectoryExists(ProjectPath & "Attachments\\" & e.DataRow("简称")) Then
    FileSys.DeleteDirectory(ProjectPath & "Attachments\\" &  e.DataRow("简称"),2,3)
End If
--  作者：kevin
--  发布时间：2011/12/30 22:36:00
--  

感谢CZY老师