programming-examples/asp/FilesMaths/Remove Directory Statement.asp

22 lines
539 B
Plaintext
Raw Normal View History

2019-11-18 14:25:58 +01:00
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
%>