asp程序用VBSCRIPT删除目录文件夹的函数方法

<%   
Function DeleteFolder(strFolderName)   
SET FSO=Server.CreateObject("Scripting.FileSystemObject")   
IF(FSO.FolderExists(strFolderName))THEN   
FSO.DeleteFolder(strFolderName)   
END IF   
SET FSO=NOTHING   
END Function   
%>  

使用时，直接调用deletefolder(文件夹路径)即可。