Office中国论坛/Access中国论坛

标题: [求助]怎麼删除文件夹？ [打印本页]

作者: 知难而进 时间: 2006-6-17 04:24
标题: [求助]怎麼删除文件夹？
删除指定的文件夹用什么代码啊？

我想通过窗体删除系统中某个文件夹，但不知代码怎么写，高手帮帮我啊。

作者: fan0217 时间: 2006-6-17 04:27
''===============================================================================
''-函数名称:       DelFolder
''-功能描述:       删除文件夹
''-输入参数说明:    参数1:strFolder As String 要删除的文件夹
''-返回参数说明:
''-使用语法示例:
''-参考:
''-使用注意:       需要引用Microsoft Scripting Runtime
''-兼容性:          97,2000,XP,2003
''-作者:
''-更新日期：       2006-02-24
''===============================================================================
Function DelFolder(strFolder As String) As Boolean
On Error GoTo Err_DelFolder
Dim objFS As FileSystemObject

Set objFS = CreateObject("Scripting.FileSystemObject")
      objFS.DeleteFolder strFolder, False
      DelFolder = True

Exit_DelFolder:
Exit Function

Err_DelFolder:
DelFolder = False
MsgBox Err.Description
Resume Exit_DelFolder

End Function

[此贴子已经被作者于2006-6-16 20:27:46编辑过]

作者: 知难而进 时间: 2006-6-17 06:49
我用了icecool版主给的两句代码成功了

Dim fsodelford
Set fsodelford = CreateObject("Scripting.FileSystemObject")
fsodelford.DeleteFolder(fpath)

作者: 知难而进 时间: 2006-6-17 06:50
谢谢回复

作者: andymark 时间: 2006-6-17 06:56

以下是引用知难而进在2006-6-16 22:49:00的发言：

我用了icecool版主给的两句代码成功了

Dim fsodelford
Set fsodelford = CreateObject("Scripting.FileSystemObject")
fsodelford.DeleteFolder(fpath)

其实跟fan0217版主一样的，fan0217的编了函数还有除错的功能，更加方便调用

作者: nxjswt 时间: 2006-6-17 21:54
学习!!

作者: heqing3000 时间: 2006-6-20 00:38
用上了。谢谢大家。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)