Visual Basic Forum for Visual Basic Programmers VB

[Goodfella_s]

I have code that looks like it should work. It takes in the URL in a text box and stores the web page in a file. This should then be checked, if there is a 0 it means there is no error flag. But i seem to get the "broken links" coming up everytime, even when i know the URL is correct. Please help!

One other thing, the file the code is supposed to create, well i cant actually find it on my c drive.


'This is in the form code

DownloadFile Text1.Text, "c:\NewHTML.htm"


'This is in a module

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
Dim TextLink
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True '0 is a flag to say its all alright
If DownloadFile = True Then Form1.TextLink.Text = "No broken links"
If DownloadFile = False Then Form1.TextLink.Text = "Broken links"

End Function

[Avis]

Hi!

Try this:

[Goodfella_s]

Thanks for the help but no dice, gave the same results. No idea why, it all looks fine!