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

iEnd = Strings.InStr(sTmp, "\")
If iEnd > iStart Then
iLen = iEnd - iStart
sFolderName = Strings.Mid(sTmp, iStart,
iLen)
sTmp = Strings.Right(sTmp,
Strings.Len(sTmp) - iEnd)
iStart = 1
iEnd = Strings.InStr(sTmp, "\")
If iEnd > iStart Then
iLen = iEnd - iStart
sProjectName = Strings.Mid(sTmp,
iStart, iLen)
sTmp = Strings.Right(sTmp,
Strings.Len(sTmp) - iEnd)
sPackageName = sTmp
End If
End If
End If
With frmMain
.txtSSISCatalogServer.Text = sServerName
.txtCatalog.Text = sCatalogName
.txtFolder.Text = sFolderName
.txtCatalogProject.Text = sProjectName
.txtCatalogPackage.Text = sPackageName
.txtStatus.Text = sFullSSISPkgPath & "
metadata loaded and parsed."
End With
End Sub
Sub btnStartCatalogClick()
' configure an SSIS application and execute the
selected SSIS package from the
' catalog