Private Sub txtWrite_Click(sender As Object, e As EventArgs)
If Me.txtInput.Text.Trim() = "" Then
MessageBox.Show("Please input Text", "Input Text", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)
Else
'*** Create ThaiCreate ***//
Dim DirTc As New DirectoryInfo("\ThaiCreate")
If Not DirTc.Exists Then
DirTc.Create()
End If
DirTc = Nothing
'*** Write to Text file ***/
Dim strPath As String = "\ThaiCreate\win.txt"
Dim StrWer As StreamWriter = Nothing
StrWer = New StreamWriter(strPath, True)
StrWer.WriteLine(Me.txtInput.Text)
StrWer.Close()
Me.txtInput.Text = ""
MessageBox.Show("Write Text Successful", "Write Text", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)
End If
End Sub