[Resolvido] Criar / Adicionar a um arquivo zip e depois excluí-lo

Este script irá criar / adicionar a um arquivo zip (web_logs.zip) todos os arquivos de log em C: \ WINNT \ system32 \ LogFiles \ W3SVC1 \ e apagar os arquivos de log uma vez que são adicionados ao arquivo zip. Este script requer componente SA-Arquivo de www.softartisans.com

<%@ LANGUAGE="VBSCRIPT" %>
<%
dim afile, FilePresence
afile = "C:\WINNT\system32\LogFiles\W3SVC1\web_logs.zip"
Function FileExists(afile)
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
FileExists = fso.FileExists(afile)
Set fso = Nothing
End Function

FilePresence = FileExists(afile)
If FilePresence = False Then
Set Arch = CreateObject("SoftArtisans.Archive")
On Error Resume Next
archiveName = "C:\WINNT\system32\LogFiles\W3SVC1\web_logs.zip"
Arch.archivetype = 1
Arch.preservepath = true
Arch.createarchive archiveName
Arch.AddFile "C:\WINNT\system32\LogFiles\W3SVC1\*.log",true
Arch.CloseArchive
else
Set Arch = CreateObject("SoftArtisans.Archive")
On Error Resume Next
archiveName = "C:\WINNT\system32\LogFiles\W3SVC1\web_logs.zip"
Arch.OpenArchive archiveName
Arch.AddFile "C:\WINNT\system32\LogFiles\W3SVC1\*.log",true
Arch.CloseArchive
end if
Kill "C:\WINNT\system32\LogFiles\W3SVC1\*.log"
Private Sub Kill(ByVal pathname)
Dim objFSO, boolErr, strErrDesc
On Error Resume Next
Set objFSO = Server.CreateObject("scripting.filesystemobject")
objFSO.DeleteFile pathname
objFSO.DeleteFolder pathname

If Err Then
boolErr = True
strErrDesc = Err.description
End If

Set objFSO = Nothing
On Error GoTo 0
If boolErr Then Err.Raise 5102, "Kill Statement", strErrDesc
End Sub
%>