Hallo NG,

ich habe einige DTS Packete die manuell ausgeführt prima funktionieren. Nun
habe ich eine Consolenanwendung mit vbexpress versucht und dort endet die
Prozedur immer mit "Failure" ohne genauere Angaben.

Code:
Sub Part01()
Dim pkgLocation As String
Dim pkg As New Package
Dim app As New Application
Dim pkgResults As DTSExecResult

pkgLocation = "E:\SQL_DTS\TFI_Buchung_POS.dtsx"
pkg = app.LoadPackage(pkgLocation, Nothing)
pkgResults = pkg.Execute()
If pkgResults.ToString() = "Success" Then
Erg = "Part01 erfolgreich " & Now()
Else
Erg = "Part01 fehlgeschlagen " & Now() & " " &
pkgResults.ToString
End If
ErgSchreiben()
End Sub

Kann mir hier jemand helfen?
Gruß Jörg