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 Long yang mewakili mode file untuk file yang dibuka menggunakan pernyataan Buka .
Sintaks
FileAttr ( filenumber , returntype )
Sintaks fungsi FileAttr memiliki argumen ini:
Argumen |
Deskripsi |
filenumber |
Diperlukan. Integer. Setiap nomor fileyang valid . |
tipe-balik |
Diperlukan. Bilangan bulat. Angka yang mengindikasikan tipe informasi yang akan dikembalikan. Tentukan 1 untuk mengembalikan nilai yang mengindikasikan mode file. Hanya pada sistem 16-bit, tentukan 2 untuk mengambil gagang file sistem operasi. returntype 2 tidak didukung dalam sistem 32-bit dan menyebabkan kesalahan. |
Nilai yang Dikembalikan
Ketikaargumenreturntype adalah 1, nilai yang dikembalikan berikut menunjukkan mode akses file:
Modus |
Nilai |
Input |
1 |
Output |
2 |
Acak |
4 |
Tambahkan |
8 |
Biner |
32 |
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 FileAttr untuk mengembalikan mode file dan gagang file file yang terbuka. Gagang file dikembalikan hanya pada sistem 16-bit; pada sistem 32-bit, meneruskan 2 sebagai argumen kedua menghasilkan kesalahan.
Dim FileNum, Mode, Handle
FileNum = 1 ' Assign file number. Open "TESTFILE" For Append As FileNum ' Open file. Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode). Handle = FileAttr(FileNum, 2) ' Returns file handle. Close FileNum ' Close file.