Abfrage ob URL existiert 2
07.05.2005 13:16:31
Sebastian
hier nochmal die problemstellung:
wie kann man in VBA pruefen ob eine bestimmte URL existiert und eine boolsche varible mit true oder false belegen je nach dem ob die URL existiert?
Um diese abfrage handelt es sich:
'URL: http://www.fda.gov/ora/oasis/3/ora_oasis_c_ar.html
'urltest = ture
'URL: http://www.fda.gov/ora/oasis/0/ora_oasis_c_ar.html
'urltest = false
es haldelt sich um eine page auf den oben genannten domain. es wird ein 404 error gesendet.
darauf hat mir Rainer das hier geraten:
option Explicit
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare
Function CheckURL Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Function URLExist(chkUrl As String) As Boolean
If CheckURL(chkUrl, FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
URLExist = False
Else
URLExist = True
End If
End Function
Sub Demo()
MsgBox <a href="URLExist("http://www.fda.gov/ora/oasis/3/ora_oasis_c_ar.html")">URLExist("http://www.fda.gov/ora/oasis/3/ora_oasis_c_ar.html")</a>
End Sub
funktioniert jedoch nicht so ganz, da die domain auch bei falschen url's eine page mit dem inhalt error 404 sendet, d.h. CheckURL ist nich gleich 0 obwohl die page nicht existiert.
oben sind die url's gepostet, um die es geht. kann mir jemand weiterhelfen?
Gruss, Sebastian
