Code: Select all
Public Sub DeleteDBScripts
On Error Resume Next
Dim count, path, objFSO, objFolder
count =Len (Session.Property ("DB_SCRIPT_DIRECTORY"))
path =Left (Session.Property ("DB_SCRIPT_DIRECTORY"), count -1)
Set objFSO = CreateObject ("Scripting.FileSystemObject")
If objFSO.FolderExists(path) Then
objFSO.DeleteFolder path, True
End If
Set objFSO = Nothing
End Sub