|
Displaying Source Code(s)
|
|
--------------------------------------------------------------------------------
MkDir Statement
--------------------------------------------------------------------------------
Description : The MkDir statement creates a new directory or
folder. The required path argument must be absolute and include
the drive letter. If you are unsure of the path to your web
server's root, use server.mappath in the path argument.
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
%>
--------------------------------------------------------------------------------
|
|
|