ASP创建文件夹函数

'------------------------------------------------
'-----创建新文件夹，strFolder为文件夹名称--------
'------------------------------------------------
function CreateFolder(strFolder)
strTestFolder = Server.Mappath(strFolder)
set objFSO = server.CreateObject("scripting.filesystemobject")
if objFSO.FolderExists(strTestFolder) Then
CreateFolder=false
else
objFSO.createfolder(strTestFolder)
CreateFolder=true
end if
set objFSO=nothing
end function

例:
<%
folder = request("createflie")
if CreateFolder(".\html\"&folder) then
response.Write("success!")
else
response.Write("error!")
end if
%>