Untuk posting kali ini saya akan posting tentang bagaimana membuat data yang kita tulis di texbox bisa disimpan di notepad.
Baik langsung saja kita mulai:
- Seperti biasa buka project baru form stabdard
- masukkan satu texbox dan satu command button ke form bisa liat gambar dibawah.
Private Sub Command1_Click()
On Error Resume Next ' jika terjadi error program akan tetap dijalankan
FileName = "C:\Latihan\Coba" + ".txt" 'membuat nama file yang akan diisi data dari VB dengan nama Coba.txt dan disimpan di direktori C, folder Latihan
fr = FreeFile
Open FileName For Append As #fr
Print #fr, Text1.Text
Close #fr
MsgBox ("Sukses Silahkan Lihat hasilnya sesuai dengan tempat yang dibuat"), vbInformation, "farul"
End Sub Lalu untuk membuat Foldernya, masukkan source code berikut pada event form Load:
Private Sub Form_Load()
On Error Resume Next ' jika terjadi error program akan tetap dijalankan
If Dir$("c:\Latihan\") = "" Then 'untuk mencari apakah ada folder Latihan
MkDir "c:\Latihan\" ' jika tidak maka di buat folder Latihan
End If
End Sub Sekarang Run programnya lalu ketikkan kata apapun yang ingin disimpan di notepad lalu klik proses, seperti pada gambar dibawah:
Setelah diklik proses nampak tidak terjadi apa2, tapi sekarang coba lihat ke direktori C dan cari folder yang kita buat tadi dengan Nama "Latihan" buka folder tersebut dan didalamnya akan ada file .txt dengan nama Coba.txt, buka File tersebut dan lihat kalimatnya pasti hasilnya akan sama dengan kalimat yang kita ketikkan di VB tadi. Bisa dilihat gambar dibawah:
Demikian untuk posting tentang membuat folder dan menyimpan data ke notepad dengan VB 6, jika ada yang membingungkan dan kurang jelas silahkan tanyakan kesaya bisa langsung chat atau tinggalkan komentar....
Terimakasih......
Salam Sepuluh Ribu Jam Untuk Jadi Expert!!! ^_^
Salam Sepuluh Ribu Jam Untuk Jadi Expert!!! ^_^
7 comments :
akhirx setelah keliling duniax om google,akhirx ketemu yang instan..
MANTAP..
thx gan..
artikelx bermanfaat sx...
itu kan kalo pake form ya gan kalo misal pake console application bisa gk gan???
makasi gan
cek blog saya ya... baliautonews.com
makasih yaa. bermanfaat bgt nihh.
jadi kalo disimpen di dekstop gmana broo?
oiya gan, berarti ini cuma sekali pake doang dong? kan setiap kita nulis baru pasti nyatu sama yang abis kita tulis itu ya gan, giama caranya biar setip nulis di textboxs baru jadi muncul notepad yg baru.
tolong banget ya agannya. Makasih banyak.
wah terima kasih banyak gan, dan ane juga dukung agan prayoga biar membuat tambahan text baru gimana gan ?
Tambah text baru tulis langsung save lagi saja gan....
Harusnya di notepadnya nambah .
Post a Comment