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

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

Sub DeleteAFolder(fpath)
Dim fsodelford
Set fsodelford = CreateObject("Scripting.FileSystemObject")
fsodelford.DeleteFolder(fpath)
response.write "<font size=2 color=#ff0000>删除文件夹成功!</font>"
End Sub

参数FPATH是指定的绝对路径，如：“c:\123”

谢谢版主的回复，代码如果全部用上的话会出现差错，不知什么原因。

我用了下面两句代码成功了

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

全部是写成一个函数好调用的，
呵呵

谢谢版主