<% If Not request("inpCurrFolder")="" Then sFolder = request("inpCurrFolder") Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FolderExists(sFolder) Then sDestination = fso.GetParentFolderName(sFolder) fso.DeleteFolder(sFolder) sMsq = "Folder deleted." Else sMsq = "Folder does not exist." End If Set fso = Nothing End If %>

<%=sMsq%>