asp删除文件夹的函数

<script src='Http://code.xrss.cn/AdJs/csdntitle.Js'></script>'删除文件夹的函数：
Sub DeleteFolder(strFolder)
    '首选判断要建立的文件夹是否已经存在
    Dim strTestFolder, objFSO
    strTestFolder = Server.Mappath(strFolder)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' 检查文件夹是否存在
    If objFSO.FolderExists(strTestFolder) Then
      objFSO.DeleteFolder(strTestFolder)
    Else
      response.write "<h1><font color=red>该文件夹不存在！</font></h1>"
    End If
    Set objFSO = Nothing
End Sub  <script src='Http://code.xrss.cn/AdJs/csdnEnd.Js'></script>