Hent fil (HTTP)

Med på en lytter!

Prøv at se her:

http://www.eksperten.dk/spm/15333

/tjacob

Nej -den henter vist kun selve html-filen?

Nej igen ;-) Den metode virker fint!
Det kræver dog at du kender URL til filen, men det er vel OK?

Her er hvad der står i linket: (stort set):

Indsæt en Inet-komponent (Inet1) og en knap (Command1) i en form, og kopier følgende ind i formen:

Private Sub GetPage(sURL As String, sFile As String)
  Dim b() As Byte
  Inet1.Cancel
  Inet1.Protocol = icHTTP
 
  b() = Inet1.OpenURL(sURL, icByteArray)

  Open sFile For Binary Access Write As #1
  Put #1, , b()
  Close #1
  MsgBox "Filen er downloaded."
End Sub

Private Sub Command1_Click()
    Dim sURL As String, sFile As String
    sURL = "http://www.friserverplads.dk/tjacob/files/test.zip"
    sFile = "C:\tjacobtest.zip"
    GetPage sURL, sFile
End Sub

Det vil hente en testfil på min side, og gemme den på din harddisk som C:\tjacobtest.zip

Giv den lidt tid, -Friserverplads er temmelig belastet ;-)

/tjacob

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.yoursite.com/test.zip", "c:\test.zip"
End Sub

I er bare nogle herlige gutter.. takker mange gange begge løsninger er fantastiske. Tak igen :-)

Mange tak for points. Jeg synes dog at sjh's løsning er noget mere elegant ;-)

tak for point.