|
Dim Rec As New ADODB.Record?
Dim Conn as New ADODB.Connection
Dim Stm as ADODB.Stream
Conn.Provider = "ExOLEDB.DataSource"
Conn.Open "http://server/folder"
Rec.Open "http://server/folder/data.txt", Conn
Set Stm = Rec.Fields(adDefaultStream).Value
'...
Conn.Close
Rec.Close
Set Conn = Nothing
Set Rec = Nothing
|
