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 catatan.

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