Import af remote fil

Du kan ikke bruge fso til andet end at manipulere filer på den lokale server.

stoney96, kender du en go (helst gratis) ASPftp component?

Du kan tage kig på denne linje af netvæk komåponenter:
http://activedeveloper.dk/komponenter/default.asp?mode=kategori&id=2

En mulighed er måske AspHTTP:

Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = "http://www.myfinancialpage.com/fil.jpg"
strResult = HttpObj.GetURL


Der er også w3Sockets (gratis) et "stort" eksempel:
http://tech.dimac.net/Products/FreeProducts/w3Sockets/Examples/Get.htm

Eagleeye: Det ser nice ud. specielt w3sockets.

Har du lige et godt forslag til noget kode der henten et billede fra en anden server? :)

Det er godt nok ikke w3sockets men med en MS ting:


<%
  Dim objXMLHTTP, objXml
  Set objXml = Server.CreateObject("Microsoft.XMLHTTP")
 
  objXml.Open "GET", "http://www.domæne.dk/billede.gif", False

  objXml.Send
 
  ' Giv filen et filnavn
  Response.AddHeader "Content-Disposition", "attachment;filename=filnavn.gif"
 
  ' Fortæl browseren hvad for en type filen er
  Response.ContentType = "application/gif"
 
  ' Udskriv billedets indhold til browseren
  Response.BinaryWrite objXml.ResponseBody

  Set objXml = Nothing
%>


Det må være muligt at lave en binaryWrite til en fil med ADODB.Stream for at gemme den som en fil.

Hvis du vil gemme filen på din server gør du sådan her, et kræve du har skrive rettighed i den folder du vil gemme filen :


<%
Dim objXMLHTTP, objXml
Set objXml = Server.CreateObject("Microsoft.XMLHTTP")
 
objXml.Open "GET", "http://www.domæne.dk/billede.gif", False
objXml.Send
 
'Gem filen
Set f = Server.CreateObject("ADODB.Stream")
f.Type = 1
f.Open
f.Write objXml.ResponseBody
f.SaveToFile Server.Mappath("/images/fil.gif", 2
f.Close
 
Set objXml = Nothing
%>

Mega nice!

Det var jo lige præcis det jeg skulle bruge.

SUPER!