Dim path As String = "D:\EmailList.txt"
Dim stream As New FileStream(path, FileMode.Append, FileAccess.Write)
Dim write As New StreamWriter(stream)
write.WriteLine(Email.Text & "@yahoo.ca" & ",")
write.Close()
MessageBox.Show("Saved @ " & path, "File Saved", MessageBoxButtons.OK, MessageBoxIcon******rmation)
hkjhkjhkjhkjh@yahoo.ca, kjhkjhkjkjhkj@yahoo.ca,
Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText("C:/File Location")
if filereader.contains(textbox1.text) then
msgbox("Contains Text")
else
'doesn't
end if
Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText(path)
if filereader.contains(textbox1.text) then
msgbox("Contains E-mail")
else
msgbox("Does not Contain E-mail")
end if
, beat me twice in 10 mins
Never.Easyasace@live.com
