Svar: [AccessD] A2003:Test Voracity of URLS

Hi Darren
 
Not quite sure what you are doing. It will return one result only ...
index.htm is chosen as any site has this page. By second thought,
index.html is possible too, but I don't know (do we have a web guru
present?) - perhaps the function should be expanded to check for any of
these two files?
 
/gustav

>>> d.dick at uws.edu.au 18-11-2004 01:58:27 >>>

Hi Gustav
Many thanks
I'm not sure how to use the code though :-(( I get odd results

When I put isUrl ("http://www.ibm.com") behind a button on a form
and put debug.print IsURL at the end of Public Function IsURL
I get "true"
If I put msgbox IsYrl at the end of Public Function IsURL
I get false
??
Dunno what it all means

http://www.ibm.com is a valid and live website
How do it know if there will be an index.htm file at the other end?
And how come I get differeing results with MSGBOX and Debug.print?

Obviously doing something wrong

Many thanks in advance

Darren



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav
Brock
Sent: Wednesday, 17 November 2004 8:36 PM
To: accessd at databaseadvisors.com
Subject: Svar: [AccessD] A2003:Test Voracity of URLS

Hi Darren

We use these functions:

<code module>

Private Declare Function URLDownloadToFile Lib "urlmon" Alias
"URLDownloadToFileA" ( _
  ByVal pCaller As Long, _
  ByVal szURL As String, _
  ByVal szFileName As String, _
  ByVal dwReserved As Long, _
  ByVal lpfnCB As Long) _
  As Long

Public Function IsURL(ByVal strURL As String) As Boolean

' Usage: Check if URL strURL is alive and reachable.
'   booURL = IsURL("http://www.ibm.com")
'   booURL = IsURL("ftp://ftp.novell.com")
'
' Note: Protocol header like "http://" must be provided.
'
' 2001-12-09. Cactus Data ApS. CPH.

  ' File found at most URLs.
  Const cstrFileIndex As String = "index.htm"

  IsURL = (URLDownloadToFile(0, strURL, cstrFileIndex, 0, 0) = 0)
  
End Function

</code module>

If your URLs contains html document name you will have to modify the
code to
use that and not append index.html.

/gustav

>>> d.dick at uws.edu.au 17-11-2004 05:03:08 >>>

I have an educational client who has a CD full of Education URL's
(Zillion's
of 'em) Occasionally someone has to test to see if the links are broken
or
not (Manually <yuk>)

I thought this would be a perfect application for Access Set up a table
of
URLs and loop through 'em and return TRUE or FALSE

So...Is there a way I can type in
say...http://somewebsite.someserver.com.au
and return "true" if the site exists or "false" if the site does not
exist.