Avatar billede gonnemand Nybegynder
11. april 2010 - 18:40 Der er 2 kommentarer og
1 løsning

Tjek om link/webside findes?

I VB-Excel skal jeg tjekke om et link findes... altså om linket rent faktisk er rigtigt.

Til det har jeg fundet følgende kode:

Function HttpExists(sURL As String) As String
Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")

If Not UCase(sURL) Like "HTTP:*" Then
sURL = "http://" & sURL
End If

On Error GoTo haveError
oXHTTP.Open "HEAD", sURL, False
oXHTTP.send
HttpExists = IIf(oXHTTP.Status = 200, "OK", "Not OK")
Exit Function
haveError:
HttpExists = "Not OK"
End Function

Men oXHTTP.Status returnere "not allowed" og fejl 405

Jeg har forsøgt at finde andre måder at tjekke om et link findes, men uden held.

Findes der en anden metode, eller er der fejl i min kode?
Avatar billede arne_v Ekspert
11. april 2010 - 18:47 #1
Det ser ud som om at den ikke kan lide HEAD prøv og send GET i.s.f. !
Avatar billede gonnemand Nybegynder
14. april 2010 - 13:50 #2
Det hjalp... mange tak.

Det kan dog være svært at vide om et link skal have "/" til sidst eller ej. Men der er ikke andet for end at prøve begge dele, når der testes.

Du kan lægge svar :-)
Avatar billede arne_v Ekspert
14. april 2010 - 15:09 #3
svar
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester