maneich
Goto Top

ADODB.Stream Objekt

Hallo,

habe hier ein kleines Problem.

Ich will mittels VBS PDF-Dateien übers Internet laden. Doch bekomme laufend die Meldung "ActiveX Componente kann kein Object erstellen ADODB.Stream".

Das ADODB.Stream Object ist in der Registry angegeben und als Datei wird die msado15.dll genannt.

BS ist WinME.

Weiß nun leider nicht mehr weiter. Vielleicht kann mit hier einer auf die Sprünge helfen.

Hier meine Sub dazu:

Sub downloadx(ByVal strLocalPath, ByVal strURL)
Const adTypeBinary = 1
Const adModeReadWrite = 3
Const adSaveCreateOverwrite = 2
Const adSaveCreateNotExist = 1
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET", strURL, False
objXML.send
Set objStr = CreateObject("ADODB.Stream")
objStr.type = adTypeBinary
objStr.mode = adModeReadWrite
objStr.open
'On Error Resume Next
'Do
'WScript.Sleep 250
objStr.write objXML.responseBody
'Loop Until Err.number = 0
objStr.savetofile strLocalPath, adSaveCreateNotExist
'On Error Goto 0
objStr.Close
Set objStr = Nothing
Set objXML = Nothing
End Sub

Besten Dank in voraus.

MfG maneich

Content-Key: 44483

Url: https://administrator.de/contentid/44483

Ausgedruckt am: 28.03.2024 um 17:03 Uhr