Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan Ekspresi Microsoft Jet berjalan dalam mode kotak pasir, yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode kotak pasir, cari "mode kotak pasir" di Bantuan.
Mengembalikan Bilangan Bulat yang berisi nilai BooleanTrue ketika akhir file yang dibuka untuk InputAcak atau berurutan telah tercapai.
Sintaks
EOF( filenumber )
Filenumber yang diperlukanargumen adalah Bilangan Bulat yang berisi nomor fileyang valid .
Keterangan
Gunakan EOF untuk menghindari kesalahan yang dihasilkan dengan mencoba mendapatkan input melewati akhir file.
Fungsi EOF mengembalikan False hingga akhir file telah tercapai. Dengan file yang dibuka untuk akses Acak atau Biner , EOF mengembalikan False hingga pernyataan Get yang terakhir dijalankan tidak dapat membaca seluruh rekaman.
Dengan file yang dibuka untuk akses Biner , upaya untuk membaca file menggunakan fungsi Input hingga EOF mengembalikan True menghasilkan kesalahan. Gunakan fungsi LOF dan Loc , bukan EOF saat membaca file biner dengan Input, atau gunakan Dapatkan saat menggunakan fungsi EOF . Dengan file yang dibuka untuk Output, EOF selalu mengembalikan True.
Contoh
Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh ini menggunakan fungsi EOF untuk mendeteksi akhir file. Contoh ini mengasumsikan bahwa MYFILE adalah file teks dengan beberapa baris teks.
Dim InputData' Open file for input.Open "MYFILE" For Input As #1' Check for end of file.Do While Not EOF(1) ' Read line of data. Line Input #1, InputData ' Print to the Immediate window. Debug.Print InputData Loop' Close file.Close #1
