Tjekke om billed link eksisterer og gemme

Med denne kode kan du teste om en adresse findes: http://www.developerfusion.co.uk/show/1605/

Tak w13 ... hvade med at gemme ... hvis nu ...

Kan jeg ikke hjælpe med :) Ikke sikker på, det er så lige til.

prøv det her:


CALL download_an_image("http://solentdreams.files.wordpress.com/2007/11/smiley.jpg")

sub download_an_image(ByVal ImageURL)
    strGemIfil = "C:\DownloadedImages\"& Right(ImageURL, InStr(1, strReverse(ImageURL), "/")-1)
    set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
    xmlhttp.open "GET", ImageURL, false
    xmlhttp.send ""
    set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Type  = 1
    objStream.Open
    objStream.Write xmlhttp.responseBody
    objStream.SaveToFile strGemIfil, 2
    objStream.close
    set objStream = Nothing
    set xmlhttp = nothing
end sub

Takker ...

Men får en "Write to file failed." fejl

Hvorfor mon?

husk at lave filrettighederne

Øh ... filrettigheder til en mappe på pc'ens disk ... kan du kort forklare hvordan ...

Kan dette i øvrigt tilpasses og bruges via excel ...

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

brugeren pita- fortæller hvordan du slår skidtet til..

Du skal have tilføjet "IUSR_<maskinenavn>" med skriverettigheder!

Kører jeg filen lokalt, så virker det fint, men uploader så får jeg fejlen.

Jeg takker for hjælpen, og må søge hjælp angående IUSR_maskinnavn andet sted ... Det siger mig ikke umiddelbart noget, og pita- hjælper kun et stykke af vejen.

Jeg mangler så lige et svar fra w13, så jeg kan få delt point'ne ...

;)

Tak for hjælpen