Buka Pernyataan
Membuka kanal data.
Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]i37502
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.
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