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\