RmDir

Delete a folder, expects to be an empty folder, path must be already MapPathed


Public

Tested

My Own Work
<%
Private Sub RmDir(byVal path)
Dim objFSO, boolErr, strErrDesc
boolErr = False
On Error Resume Next
Set FSO = Server.CreateObject("scripting.filesystemobject")
FSO.DeleteFolder path
if Err Then 
boolErr = True
strErrDesc = Err.Description
end if
Set FSO = Nothing
On Error GoTo 0
if boolErr then Err.Raise 5100, "RmDir Statement", strErrDesc
End Sub
%>

path

<% RmDir "C:\New Folder" %>
<% RmDir server.mappath("/New Folder") %>

Views 4640 Downloads 1278

Classic ASP File System
ANmarAmdeen
755
Revisions

v1.0

Needs