|
Displaying Source Code(s)
|
|
--------------------------------------------------------------------------------
RmDir Statement
--------------------------------------------------------------------------------
Description : The RmDir statement deletes a 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:
<% RmDir "C:New Folder" %>
<% RmDir Server.MapPath("/New Folder") %>
source code:
<%
Private Sub RmDir(ByVal path)
Dim objFSO, boolErr, strErrDesc
boolErr = False
On Error Resume Next
Set objFSO = Server.CreateObject("scripting.filesystemobject")
objFSO.DeleteFolder path
If Err Then
boolErr = True
strErrDesc = Err.description
End If
Set objFSO = Nothing
On Error GoTo 0
If boolErr Then Err.Raise 5100, "RmDir Statement", strErrDesc
End Sub
%> |
|
|
123
Eng