以文本方式查看主题

-  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老师