Source Membuat File .TXT Di VB6

FreeSource | Source Membuat File .TXT Di VB6

Selamat sore sobat FESO, hari ini saya akan membuat posting tentang Tutorial serta SourceCode dari cara membuat file .txt ataupun sebuah note, ya dari pada panjang banget basa basi nya lebih baik langsung menuju ke TKP!

Alat-Alat yang dibutuhkan :

• Visual Basic 6 Full Version / Portable (sama saja)
• Komputer
• Mouse
• Keyboard
• Jaringan Internet
• Harddisk Space Yang Cukup
• Teh ataupun coffee

Pertama, Kita akan membuat file .TXT / Note

• Buka Visual Basic 6
• Tambahkan Sebuah Form
• Tambahkan 1 TextBox dan Beri nama "txtTulisan"
• Tambahkan 1 Command Button dan Beri nama "cmdSimpan" ubah Captionnya Menjadi "Simpan!"
• Kemudian Tambahkan Code Dibawah Ini

Private Sub Command1_Click()

On Error Resume Next

Dim i As Integer

Open "c:\test.txt" For Output As #1

Print #1, Text1

Close #i

End Sub

~|===================================================|~
Kedua, Kita akan membuka file .TXT / Note

• Buka Visual Basic 6
• Tambahkan Sebuah Form
• Tambahkan 1 TextBox dan Beri nama "txtTulisan"
• Tambahkan 1 Command Button dan Beri nama "cmdBuka" ubah Captionnya Menjadi "Buka!"
• Pastikan File .txt Telah Diciptakan!
• Kemudian Tambahkan Code Dibawah ini!

Private Sub Command1_Click()

Dim i As Integer

i = FreeFile

Dim s As String, s1 As String

Open "c:\test.txt" For Input As #i

Do Until EOF(i)

Input #i, s

s1 = s1 & s & IIf(EOF(i), "", vbCrLf)

Loop

Close #i

Text1.Text = s1

End Sub

Silahkan Download Source Nya Dibawah Ini | RAR Password : www.vb6-freesource.blogspot.com