Hente fil via http

Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
            Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
            Dim sr As StreamReader = New StreamReader(resp.GetResponseStream)
            Dim content As String = sr.ReadToEnd

herligt. Er det muligt at finde ud af hvilke filer der fx. ligger i mappen www.domæne.dk/test ?

ikke generelt

men hvis der ikke er en index.html/htm/php/asp/aspx/whatever og serveren
tillader directory browsing så kan du parse resultatet

hmm okay, det må jeg kigge nærmere på lidt senere. Nu har jeg sidder og kigget lidt på din kode. Hvordan får jeg kopieret filen ned på min harddisk?

en StreamWriter og Write ?

hvis det er en binær fil og ikke en tekst fil så skal du bruge Stream Read og Write
fremfor StreamReader og StreamWriter

det er ikke en binær fil. Jeg har prøvet, man kan ikke få det til at virke. Måske er det mig der gør noget ofrker, kan du give et eksempel?

Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
Dim sr As StreamReader = New StreamReader(resp.GetResponseStream)
Dim sw As StreamWriter = New StreamWriter(filename)
Dim line As String
line = rdr.ReadLine
While line <> Nothing
    sw.WriteLine(line)
    line = rdr.ReadLine
End While
sr.Close
sw.Close

den opretter filen, men skriver ikke ngoet i den

jeg har lige testet:

Imports System
Imports System.IO
Imports System.Net

Module Main
    Sub Main()
        Dim url As String = "http://exp.dk/spm/678441"
        Dim filename As String = "C:\e.html"
        Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim sr As StreamReader = New StreamReader(resp.GetResponseStream)
        Dim sw As StreamWriter = New StreamWriter(filename)
        Dim line As String
        line = sr.ReadLine
        While line <> Nothing
            sw.WriteLine(line)
            line = sr.ReadLine
        End While
        sr.Close
        sw.Close
    End Sub
End Module

og det virker fint hos mig !

det burde virke med en hvilken som helst filtype ikke?

undtagen binære filer

hmm, nu bliver jeg da helt itvivl om det skulle være en binær fil. Hvad gør jeg hvis jeg skal gøre det med en binær fil?

Imports System
Imports System.IO
Imports System.Net

Module Main
    Sub Main()
        Dim url As String = "http://exp.dk//img/elogo.png"
        Dim filename As String = "C:\e.png"
        Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim sr As Stream = resp.GetResponseStream
        Dim sw As Stream = New FileStream(filename, FileMode.Create, FileAccess.Write)
        Dim b(100000) As Byte
        Dim actual As Integer
        Dim more as boolean = True
        While (more)
            actual = sr.Read(b, 0, b.Length)
            If actual > 0 then
                sw.Write(b, 0, actual)
            Else
                more = False
            End If
        End While

        sr.Close
        sw.Close
    End Sub
End Module

jeg få blå streg under b'et i linjen

actual = sr.Read(b, 0, b.Length)

arh, det var bare mig der lavede en dum fejl. Det virker nu, mange tak for hjlæpen, smid et svar

svar