visual basic 6 ??

im trying to write a application that will open any text file and test the url's inside to see if they're still working or broken. however i cant seem to get pass step one wich is displaying the contents of the text file.

(e.g) of a text file(notice i just inserting _ so i'm not flamed for linking to another site)

_www.cdrsoft.cc
_download.com
_www.ebay.com

now for some reason its only showing _www.ebay.com the last record.

my code:


Private Sub File1_Click()
Dim strFilePath As String
Dim intIndex As Integer
Dim temp As String

'Const intmax As Integer = 10


On Error Resume Next
strFilePath = (File1.Path + "\" + File1.FileName)


Open strFilePath For Input As #1


Do Until EOF(1)

Line Input #1, temp

Text1.Text = temp 'here i'm trying to display the text file contents into a text box i made called text1 but i only get the last record in the text file

Loop


Close #1


End Sub
 
Top