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 Open .
Sintaks
FileAttr(nomor file,returntype)
Sintaks fungsi FileAttr memiliki argumen berikut:
| Argumen | Deskripsi |
|---|---|
| nomor file | Diperlukan. bilangan bulat. Nomor file apa pun yang valid. |
| tipe pengembalian | Diperlukan. bilangan bulat. Angka yang menunjukkan jenis informasi yang akan dikembalikan. Tentukan 1 untuk mengembalikan nilai yang menunjukkan 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. |
Mengembalikan nilai
Jika argumen returntypeadalah 1, nilai pengembalian berikut menunjukkan mode akses file:
| Mode | Value |
|---|---|
| Masukan | 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 handel file dari file yang terbuka. Gagang file hanya dikembalikan 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.