'==============================
' Function name: Delfolder
' Function: Delete folder
' Parameter: Folder relative path FolderPath
'==============================
Function Delfolder (FolderPath)
If Isfolder (folderpath) =true Then
Set fso=server.createobject ("Scri" & "Pting"). File "& Sys" & "Temobject")
Fso.deletefolder (Server.MapPath (FolderPath))
Set fso=nothing
End If
' Select case ERR
' Case 424 Response.Write ("Side card error Tip: When deleting the &FolderPath& folder, the path is not found or the directory does not have write permission!" ")
' End Select
End Function
'==============================
' Function name: delfile
' Function: Delete file
' Parameter: File relative path filepath
'==============================
Function Delfile (FilePath)
' On Error Resume Next
If isfile (FilePath) =true Then
Set fso=server.createobject ("Scri" & "Pting"). File "& Sys" & "Temobject")
Fso.deletefile (Server.MapPath (FilePath))
Set fso=nothing
End If
' Select case ERR
' Case 424 Response.Write ("Side card error tip: When deleting" &FilePath& "file, the path is not found or the directory does not have write permission!) ")
' End Select
End Function