Downloade fil med vbs script

Ingen der kan hjælpe?

Option Explicit

    Const cFIL = "foreningsside_1.pps"
    Const cOUT = "C:\temp\"
    Const cURL = "http://www.foreningsside.dk/uploads/files/"


    Dim intOUT
   
    Dim strOUT
        strOUT = cOUT  & cFIL

    Dim strURL
        strURL = cURL & cFIL

        Call fetch(strURL,strOUT)

msgbox "Filen er downloadet til: " & strOUT

Function fetch(url,out)
  'On Error Resume Next
    Err.Clear
    Dim b
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET",url,False
        .Send
    b = .ResponseBody
        If Err.Number <> 0 Or .Status <> 200 Then
            fetch = False
    msgbox "fejl"
            Exit Function
        End If
    End With
    With CreateObject("ADODB.Stream")
        .Type = 1
        .Open
        .Write b
        .SaveToFile out,2
    End With
    fetch = Err.Number = 0
End Function

//akj

Kanon - det virker rigtig godt - nsæten skræmmende godt ;)

Hvad nu hvis man vil downloade flere filer ??

tjaa man kunne fx. kalde funktionen Call fetch(strURL,strOUT) flere gange

takker jonbdk :-) er lidt meget noob, men prøver da

:) Det er bare iorden - det skal der også være plads til - husk selvfølglig bare at gemme dine filer som forskellige navn altså at ændre begge parametre strURL og strOUT - strUrl er filen og StrOut er cOut som er placeringen for hvor du gemmer samt filnavnet - der skal du jo ændre filnavnet hver gang.