not sure if the following will help youDTS: Error Handling Revealed http://www.windowsitpro.com/Articles/Print.cfm?ArticleID=6196
也可以写 '********************************************************************** ' Visual Basic ActiveX Script '************************************************************************function Main() dim fil set fil = CreateObject("Scripting.FileSystemObject") Dim Stm With fil set stm =.OpenTextFile("c:\日志.txt",8,True) stm.WriteLine Now() & ":复制开始" stm.Close set stm = Nothing End With set fil = Nothing Main=DTSTaskExecResult_Success End function activeX脚本任务属性,
http://www.windowsitpro.com/Articles/Print.cfm?ArticleID=6196
'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************function Main()
dim fil
set fil = CreateObject("Scripting.FileSystemObject")
Dim Stm
With fil
set stm =.OpenTextFile("c:\日志.txt",8,True)
stm.WriteLine Now() & ":复制开始"
stm.Close
set stm = Nothing
End With
set fil = Nothing
Main=DTSTaskExecResult_Success
End function
activeX脚本任务属性,