Execution Patterns - SQL Server Integration Services Design Patterns - page 89

With frmMain
.OpenFileDialog1.DefaultExt = "dtsx"
.OpenFileDialog1.ShowDialog()
.txtSSISPkgPath.Text
= .OpenFileDialog1.FileName
.txtStatus.Text = .txtSSISPkgPath.Text & "
package path loaded."
End With
End Sub
Sub btnOpenSSISPkgInCatalogClick()
' allow the user to navigate to an SSIS package
stored in a catalog
frmISTreeInit()
Dim sTmp As String = sFullSSISPkgPath
Dim sServerName As String = Strings.Left(sTmp,
Strings.InStr(sTmp, ".") - 1)
Dim iStart As Integer = Strings.InStr(sTmp, ".")
+ 1
Dim iEnd As Integer = Strings.InStr(sTmp, "\")
Dim iLen As Integer
Dim sCatalogName As String
Dim sFolderName As String
Dim sProjectName As String
Dim sPackageName As String
If iEnd > iStart Then
iLen = iEnd - iStart
sCatalogName = Strings.Mid(sTmp, iStart, iLen)
sTmp = Strings.Right(sTmp, Strings.Len(sTmp)
- iEnd)
iStart = 1