PROGRAM MEMBUAT FILE .TXT
Nama : SRIWAHYUNI
NIM : 19010020
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.FileSystem.WriteAllText("D:\file.txt", TextBox1.Text, True)
MsgBox("File berhasil disimpan")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
End Class
Komentar
Posting Komentar