Imports System.IO Public Class AddEMForm Private Sub CreateCSVfile(ByVal_strCustomerCSVPath As String, ByVal EName As String, ByVal Edate As Date, ByVal ELoc As String, ByVal EDis As String, ByVal EFee As String) Try Dim stLine As String = "" Dim objWriter As StreamWriter = File.AppendText("..\..\EventData.txt") If File.Exists("..\..\EventData.txt") Then objWriter.Write(EName & ",") objWriter.Write(Edate & ",") objWriter.Write(ELoc & ",") objWriter.Write(EDis & ",") objWriter.WriteLine(EFee) End If objWriter.Close() ClearTextbox() Catch ex As Exception End Try End Sub Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles LocTbx.TextChanged End Sub Private Sub AddEMForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As Object, …

Member Avatar
+0 forum 0

The End.