Hi im trying to make a program that will add a text from textbox 1 and a ip adress to a text file but the program says text already exist all the time
PHP Code:
Option Explicit
Dim txtthere As Boolean
Private Sub Command1_Click()
If txtthere = True Then
MsgBox "There is already text there!"
Else
Dim sFileText As String
Dim iFileNo As Integer
iFileNo = FreeFile
Open App.Path & "\bt.txt" For Output As #iFileNo
Print #iFileNo, "74.125.87.103" & Text1.Text
Close #iFileNo
txtthere = True
End If
End Sub
Private Sub Form_Load()
Dim sFileText As String
Dim iFileNo As Integer
iFileNo = FreeFile
Dim i
Open App.Path & "\bt.txt" For Input As #iFileNo
Do While Not EOF(iFileNo)
Input #iFileNo, sFileText
i = i + 1
Loop
Close #iFileNo
If i >= 1 Then
txtthere = True
Else
txtthere = False
End If
End Sub