?
Solved

A question about the internet transfer control.

Posted on 1998-11-06
3
Medium Priority
?
166 Views
Last Modified: 2010-04-30
Is there and easy way to determin if a url is bad without sorting throught it's source?
0
Comment
Question by:hess
3 Comments
 
LVL 13

Expert Comment

by:Mirkwood
ID: 1443639
How do you mean is bad. You mean that the syntax is correct or something.
0
 

Author Comment

by:hess
ID: 1443640
error 404
0
 
LVL 1

Accepted Solution

by:
soeding earned 100 total points
ID: 1443641
Dim txt$
Dim pos%

Inet1.OpenURL("myURL", 1)
txt = Inet1.GetHeader()

' Headers like "HTTP/1.1 Error 404" are always in the first line:
pos = Instr(1, txt, vbCrLf)
txt = Mid(txt, 1, pos-1)

If Instr(1, txt, "404") > 0 Then
    ' Error 404
End If


0

Featured Post

The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

601 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question