ADO-Upload

[Seidl]

Hallo Leute!

Ich habe mir für Lotus-Notes ein kleines Script geschrieben um aus Notes-Dokumenten erzeugte, statische HTML-Dokumente über HTTP auf einen WebServer zu stellen. Ich habe das ganze auf einem WebAccount getestet der unter Windows läuft und hatte absolut keine Probleme. Jetzt hat aber ein Arbeitskollege gemeint das würde mit seinem WebAccount (Linux) nicht funktionieren. Ich habe deshalb eine Mini-VBA-Funktion von MS kopiert die nur die Dateien unter einem Web-Ordner ins Direktfenster schreibt. Könnte bitte jemand mit einem nicht Windows Web-Account testen ob das Script bei ihm/ihr funktioniert?

Verweis auf ADO 2.7 setzen nicht vergessen!
---------------------------
Private Sub Test()
Dim grec As ADODB.Record
Dim grs As ADODB.Recordset
Set grec = New ADODB.Record
Set grs = New ADODB.Recordset
grec.Open "", "URL=http://www.MyHomepage.at/", , adFailIfNotExists, adOpenRecordUnspecified, "MyUsername", "MyPassword"
Set grs = grec.GetChildren
While Not grs.EOF
Debug.Print grs(0)
grs.MoveNext
Wend
End Sub
---------------------------

danke im Voraus
Seidl