22 lines
578 B
Plaintext
22 lines
578 B
Plaintext
|
|
example usage:
|
|
Create a directory called "New Folder" On the root of the server.
|
|
|
|
<% MkDir Server.MapPath("/New Folder") %>
|
|
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
|
|
%> |