Svar: [AccessD] A2003:Test Voracity of URLS

Darren DICK d.dick at uws.edu.au
Wed Nov 17 18:58:27 CST 2004


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.
 
--
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




More information about the AccessD mailing list