MGET för Http

[Martin18]

Hej på er!

Jag undrar om det finns en motsvarighet till FTPns mget för http?

Och om det finns hur använder jag den.

MVH

Martin

 

[NumeriusNegidius]

Om du vill hämta filer via http och placera dem på servern, eller skicka dem till en användare använder du med fördel någon av komponenterna MSXML eller ASPTear.

 

Här är en gammal sub jag använt:

 

[log]public sub get_files(location,filename)

set retriever = server.createObject("MSXML2.ServerXMLHTTP")

retriever.SetTimeouts 5000,5000,3600000,3600000

retriever.open "GET", location

retriever.send

if retriever.Status = 200 Then

set myStream = server.createobject("ADODB.Stream")

myStream.Open

myStream.Type = 1 'adTypeBinary

 

myStream.Write retriever.ResponseBody

myStream.Position = 0 'Set the stream position to the start

 

set fso = server.createobject("Scripting.FileSystemObject")

if fso.Fileexists(filename) then

fso.DeleteFile filename

end if

set fso = Nothing

 

myStream.SaveToFile filename

myStream.Close

Set myStream = Nothing

end if

set retriever = nothing

end sub

[/log]

 

/Nisse

---

"Trying is the first step towards failure" - Homer Simpson