MkDir path
Example Usage:
Create a directory called "New Folder" on the root of the server.
<% MkDir server.mappath("/New Folder") %>
ASP Source Code:
<%
Private Sub MkDir(byVal path)
Dim objFSO, boolErr, strErrDesc
boolErr = False
On Error Resume Next
Set objFSO = Server.CreateObject("scripting.filesystemobject")
objFSO.CreateFolder path
if Err Then
boolErr = True
strErrDesc = Err.Description
end if
Set objFSO = Nothing
On Error GoTo 0
if boolErr then Err.Raise 5101, "MkDir Statement", strErrDesc
End Sub
%>