Function Main() Set filestreamOUT = CreateObject("Scripting.FileSystemObject").CreateTextFile(DTSGlobalVariables("gvpathURI").Value + "\" +"Success.txt",true) filestreamOUT.WriteLine("Success") filestreamOUT.Close() Set filestreamOUT = Nothing Main = DTSTaskExecResult_Success End Function
Public Sub Main() Dim filestreamOUT As Object filestreamOUT = CreateObject("Scripting.FileSystemObject").CreateTextFile(Dts.Variables("gvpathURI").Value + "\" + "Success.txt", True) filestreamOUT.Write("Success") filestreamOUT.Close() filestreamOUT = Nothing Dts.TaskResult = ScriptResults.Success End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)