Connecte til website..

Thomas> Eeehmm ja...så vidt jeg forstår vil du bare ha en xml-fil som ligger på det site....laver et eks. www.tis.dk og der ligger et xml på det site der så skriver vi bare : www.tis.dk/filen.xml eller hvor den nu ligger :o)..så har du den...men hvis du giver mig url'en til det site du tænker på kan jeg gøre det for dig ?

Hejsa igen!

Ja, det er præcis hvad jeg har brug for. Men jeg har naturligvis brug for at kunne hente den ned og gemme den lokalt, for derefter at distribuere den ud i netværket, men det er slet ikke noget problem. Mit eneste problem er at connecte til sitet og hente filen ned.

Hvis jeg f.eks bruger:

Dim xml as string
xml = "http://blabla.dk/bla.xml"

Det får jeg jo ikke rigtigt noget ud af. Der må ligge en funktion, som er istand til at hente XML-filen ind i en variabel, lige som FileSystemObject gør med filer?..

På forhånd tak,

Thomas.

Skal du skrive password for at hente den ellers kan du bruge koden her:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
  If lngRetVal = 0 Then DownloadFile = True
End Function

Private Sub Form_Load()
  DownloadFile "http://www.eksperten.dk/spm/196259", "c:\196259.htm"
End Sub

Thomas> Eeehmm igen :o)...jamen...eehmm ja...2 sec så skal jeg lige prøve noget ...vender lige tilbage hvis jeg har fundet ud af noget ..okay ? :o)

Sjh,

Bingo!!.. Det var præcis hvad jeg skulle bruge!!!..

hjml,

Jeg beklager, men sjh var hurtigst. :)

Mange tak for hjælpen begge to! Det var virkelig fedt!!

Med venlig hilsen,

Thomas Regin.

selv tak :-)