Bonjour,
comment faire pour tester une URL ?
mon code doit vérifier si un fichier image existe sur un autre serveur
Bonjour,
comment faire pour tester une URL ?
mon code doit vérifier si un fichier image existe sur un autre serveur
merci je n'aurais jamais trouvé !!
ci-dessous ma fonction qui marche :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 Function URLexiste(urlStr) Dim xmlHttp Dim retStr Set xmlHttp = CreateObject("Msxml2.XMLHTTP") On Error Resume Next xmlHttp.Open "GET", urlStr, False xmlHttp.setRequestHeader "Content-Type", _ "application/x-www-form-urlencoded" xmlHttp.Send If Err.Number = 0 Then lapage= xmlHttp.responseText if instr(lcase(lapage),"404")<>0 then URLexiste = false else URLexiste = true end if Else URLexiste = false End If Set xmlHttp = nothing End Function
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager