Database Reference
In-Depth Information
User::OkToProceed
User::SourceFileDirectory
User::WorkingCopyFileName
Click the Edit Script button to open the VSTAProjects script editor. At the top of
the ScriptMain.vb file, add the statement from Listing 7-11 to the Imports region.
Listing 7-11 . Declaring a Reference to the System.IO Namspace
Imports System.IO
Replace the code in Public Sub Main() with that from Listing 7-12 .
Listing 7-12 . Code for the Main() Subroutine
Public Sub Main()
' 1: declare bDebug
Dim bDebug As Boolean
' 2: detect Debug mode...
bDebug
= Convert.ToBoolean(Dts.Variables("Debug").Value)
' 3:variables declaration...
Dim sPackageName As String
= Dts.Variables("System::PackageName").Value.ToString
Dim sTaskName As String
= Dts.Variables("System::TaskName").Value.ToString
Dim sSubComponent As String = sPackageName & "."
& sTaskName
Dim sDateStampFormat As String = _
Dts.Variables("$Package::DateStampFormat").Value.ToString
Dim sSourceFilePath As String = _
Dts.Variables("$Package::SourceFilePath").Value.ToString
Dim bExceptionOnFileNotFound As Boolean = _
 
 
 
 
Search WWH ::




Custom Search