22 lines
539 B
Plaintext
22 lines
539 B
Plaintext
|
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
|
||
|
|
%>
|