asp生成文件夹

<%
create_fold "newfold/"
%>

<%
sub create_fold(T_fold)
   set fso=server.CreateObject("scripting.filesystemobject")    
   if fso.folderexists(server.MapPath(T_fold)) then
   else
     fso.createfolder(server.MapPath(T_fold))
   end if
   set fso=nothing 
end sub
%>

asp删除文件夹

<%

Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(server.MapPath("newfold"))

%>