membuat file pada visual basic 6.0


berikut ini merupakan contoh source code untuk membuat file dengan ekstensi sendiri.

pada contoh ini, saya menggunakan ekstensi *.dg

open (app.path & “\file_pertama.dg”) for output as #1

write #1, “baris pertama”

write #1, “baris kedua”

close #1

sedangkan untuk membuka file file_pertama.dg kita bisa gunakan perintah sbb:

dim temp1, temp2 as string

open (app.path & “\file_pertama.dg”)  for input as #2

input #2, temp1

input #2, temp2

text1.text = temp1

text2.text = temp2

close #2

untuk menangani kasus, misalkan database kamus kita bisa gunakan source kode sbb:

open (app.path & “\file_pertama.dg”) for append as #1

write #1, text1.text, text2.text

close #1

kode diatas akan menambahkan data terus menerus, jika pada source yang sebelumnya data hanya terupdate sedangkan kode diatas akan menambahkannya dibawah garis.

untuk membukanya, gunakan source dibawah ini:

open (app.path & “\file_pertama.dg”) for input as #2

do while eof(1)

input #2, list1.additems

loop

close #2

semoga bermanfaat,

copyright © diggi compusoft lab’s 2012

About

Flexter member

Tagged with: , , , , ,
Posted in Tutorial

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: