' Pkg 240 (Overwrite Pkg Log)
Option Explicit
Function Main()
Dim oFSO, sLogFile
sLogFile = DTSGlobalVariables.Parent.LogFileName
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(sLogFile) Then
oFSO.DeleteFile sLogFile, True
End If
Set oFSO = Nothing
Main = DTSTaskExecResult_Success
End Function