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 3869 Downloads 1093

Classic ASP File System
ANmarAmdeen
642
Revisions

v1.0

Needs