[求助]怎麼删除文件夹？

知难而进

删除指定的文件夹用什么代码啊？

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

fan0217

''===============================================================================
''-函数名称:         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编辑过]

知难而进

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

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

知难而进

谢谢回复

andymark

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


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

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

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

nxjswt

学习!!

heqing3000

用上了。谢谢大家。