'===============删除文件夹================
Sub DFolder(FolderName)
'删除文件夹
'==================================================
'作者:飞飞
'网址:www.ffasp.com
'QQ:276230416
'邮箱:rabbit25132008@gmail.com
'==================================================
'参数说明
'FolderName 文件夹路径
'==================================================
Dim FSO
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(Server.MapPath(FolderName)) Then
FSO.DeleteFolder(Server.MapPath(FolderName)),true
End If
Set FSO=Nothing
End Sub
'=========================================