Cara Membuat File Notepad Di Visual Basic 6.0
Selasa, 26 Februari 2013
Visual Basic
Cara Membuat File Notepad Di Visual Basic 6.0
lagi lagi berkutat pada bahasa pemograman visual basic 6.0, namun kali ini penulis ingin berbagi bagaimana cara membuat file notepad di visual basic. Mungkin diantara kita tidak tahu kehebatan dari notepad itu sendiri. Selain sebagai media pencatat dan pengolah kata kata, ditangan yang tepat notepad menjadi sangat berarti. Beberapa Contohnya adalah :
Notepad bisa menghasilkan berbagai macam dasar pembuatan program jika ekstensi akhirnya diganti sesuai dengan ekstensi dari program itu sendiri, contohnya : ".html" dan ".php" bahasa dasar dalam world wide web (www) yang bisa dibuat dengan notepad, ".cpp" ekstensi bahasa pemograman dasar bahasa C, ".bat" file ekstensi yang dapat memerintah command prompt pada sistem operasi windows, dll.
namun kali ini saya hanya akan membahas bagaimana cara membuat file yang berekstensi ".txt" sebagai ekstensi dasar dari Notepad. Berikut Penjelasan mengenai listing di visual basic nya.
terlebih dahulu design form seperti dibawah :
dengan rincian form + command button.
Buat Sebuah sub baru dengan nama "buatfile"
Sub buatfile()
Set perintah = CreateObject("scripting.filesystemobject")
Set isi = perintah.Createtextfile("d:\buatfilenotepad.txt")
isi.writeline ("Tes.. Coba membuat file dengan Visual Basic")
isi.writeline ("Pusat-Informatika.blogspot.com")
isi.Close
Set dk = CreateObject("wscript.shell")
dk.run "d:/buatfilenotepad"
end sub
penjelasan :
paragraf pertama sub diatas mendeklarasikan "perintah" sebagai file system objek (perintah bawaan dari windows untuk membuat sebuah file).
dengan lokasi penyimpanan file pada drive "d:\"
paragraf kedua perintah untuk membuaka file notepad yang sebelumnya sudah dibuat.
Lalu panggil sub tersebut dalam command button.
Tips : ada baiknya menjalankan aplikasi Visual Basic sebagai administrator (Run as administrator" karena file system object berada pada folder windows.
Sekian Cara membuat file notepad di visual basic 6.0, semoga menjadi inspirasi.