folder >
create

CreateFolder (sub folder)

建立新数据夹

Create a Folder 

You need to change the upper folder permission
before you create, delete or rename
otherwise you will get error message.

在执行建立删除或更改档名之前
你一定别忘了先到你的主机管理员区
修改上你想修改数据夹的权限

<%
Dim fso, newfolder
Set fso = CreateObject("Scripting.FileSystemObject")
thePath="c:\myDirPath\"

newfolder=request("folder") 

if fso.folderexists (thePath&""&newfolder&"") then   'do nothing
else
fso.createfolder (thePath&""&newfolder&"")
end if

%>
---------- attention --------
you must check if the folder exists
never duplicate folders
because it will never work

建新档前更应该先检查是否有档名已经
存在了, 若是重复建文件将会出现错误讯息
严重者会加重主机的负担....亦有可能当机

the new folder will be created under myDirPath folder
C:\myDirPath\newfolder
http://----.com/newfolder/

建立起新数据夹
C:\myDirPath\newfolder\