Try this function I found a while ago on http:/Q_20882190.html can help you out. it checks if a certain internet address exist.
Private Declare Function InternetCheckCo nnection _
Lib "wininet.dl l" _
Alias "InternetCheckC onnectionA" _
(ByVal lpszUrl As String, _
ByVal dwFlags As Long, _
ByVal dwReserved As Long) As Long
Public Function blnAPI_URL_Exis ts(ByVal strURL As String) As Boolean
'However, should a page not be found (i.e. a 404 error) and the particular site
'is set-up to redirect to a bespoke "404 page" then you may actually receive a false
'result in that the redirection page does exist (even though the original page did not).
Comment