Upload - Datei vom Webserver auf AS400

[padawan]

genauso umgesetzt,
wenn ich aber das jetzt absetze:

Dim cnn As ADODB.Connection
Dim CallCmd As String
cnn = New ADODB.Connection

cnn.Open("Provider=IBMDA400;" & _
"Data Source=SERVERNAME;" & _
"User ID=USER;" & _
"Password=PW;")
CallCmd = "CALL PGM(TRUMPFH/THYS00CWEB)"
cnn.Execute("CALL QSYS.QCMDEXC ('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")")
cnn.Close()

werden die Daten nicht in die PF-Datei geschrieben.