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
(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