Use Access to check whether a specific file exists on a Web site (1 Viewer)

[JohnPapa]

Actually what I am looking to do is have an Access application check some Web site for the presence of a number. This number could be the Serial number of the application and if this number exists to maybe show a message in the aplication or even terminate the application.

A quick and dirty way is for User Serial number 254, to put on a specific page of a Web site say arbitrary file 254.jpg (invisible on the Web site). The application would check for the existence of this file and if it is there, it could take some action. Everything would have to be done in stealth mode.

The following code can tell me if a specific URL exists, in this case VisualDentist.com

Private Sub cmdArbitray_Click()
Dim blnDum As Boolean
blnDum = blnCheckURL("[URL="http://www.visualdentist.com/"]http://www.VisualDentist.com[/URL]")
' If blnDum = True then it exists
End Sub
 
Public Function blnCheckURL(ByVal strURL As String) As Boolean
Const FLAG_ICC_FORCE_CONNECTION As Long = &H1
blnCheckURL = (InternetCheckConnection(strURL, FLAG_ICC_FORCE_CONNECTION, 0&) <> 0&)
End Function

1) How can I check for file 254.jpg?
2) If there is a better way, please feel free to suggest
John

 

[JohnPapa]

If I can rephrase the question in a simpler manner, can Access check for the existence of a file on the Internet and how?
John