Modul
Isi
Indeks 🔎︎

# Buka Pernyataan

Membuka kanal data.

## Sintaksis:

    Membuka NamaBerkas Sebagai String [For Mode] [Access IOMode] [Protected] Sebagau [#]FileNumber Sebagai Integer [Len = DatasetLength]

## Parameter:

NamaBerkas: Nama dan alamat berkas untuk dibuka. Jika anda mencoba untuk membaca berkas yang tidak ada (Akses = Baca), pesan kesalahan akan muncul. Jika anda mencoba untuk menulis ke file yang tidak ada (Akses = Tulis), berkas baru dibuat.

Mode: Kata Kunci yang menentukan mode berkas. Nilai yang valid: Tambah (tambahkan ke berkas sekuensial), Biner (data dapat diakses oleh byte menggunakan Get and Put), Masukan (membuka saluran data untuk membaca), Keluaran (membuka saluran data untuk menulis), dan Acak (mengedit berkas relatif)

ModeIO: Kata kunci yang mendefinisikan jenis akses. Nilai yang valid: Baca (hanya baca), Tulis (hanya tulis), Baca Tulis (keduanya).

Dilindungi: Kata kunci yang mendefinisikan status keamanan file setelah dibuka. Nilai yang valid: Berbagi (file dapat dibuka oleh aplikasi lain), Kunci Pembaca (file dilindungi terhadap pembacaan), Kunci Penulis (file dilindungi terhadap penulisan), Kunci Pembacaan Penulisan (menolak akses file).

NomorBerkas: Ekspresi integer apa pun dari 0 hingga 511 untuk menunjukkan jumlah sisa saluran data. Anda kemudian dapat mengirimkan perintah melalui saluran data untuk mengakses berkas. Nomor berkas harus ditentukan oleh fungsi FreeFile segera sebelum pernyataan Terbuka.

DatasetLength: Untuk akses berkas secara acak, atur panjang rekaman.

Anda hanya dapat mengubah isi file yang dibuka dengan pernyataan Buka. Jika Anda mencoba membuka file yang sudah terbuka, pesan kesalahan akan muncul.

## Contoh:

    Sub ExampleWorkWithAFile

    Dim iNumber As Integer

    Dim sLine As String

    Dim aFile As String

    Dim sMsg As String

        aFile = "c:\data.txt"

        iNumber = Freefile

        Open aFile For Output As #iNumber

        Print #iNumber, "Ini adalah baris teks"

        Print #iNumber, "Ini adalah baris teks yang lain"

        Close #iNumber

        iNumber = Freefile

        Open aFile For Input As iNumber

        While Not eof(iNumber)

            Line Input #iNumber, sLine

            If sLine <>"" Then

                sMsg = sMsg & sLine & chr(13)

            End If

        Wend

        Close #iNumber

        MsgBox sMsg

    End Sub