Masuk dengan Microsoft
Masuk atau buat akun.
Halo,
Pilih akun lain.
Anda memiliki beberapa akun
Pilih akun yang ingin Anda gunakan untuk masuk.

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.

Perlu bantuan lainnya?

Ingin opsi lainnya?

Jelajahi manfaat langganan, telusuri kursus pelatihan, pelajari cara mengamankan perangkat Anda, dan banyak lagi.

Komunitas membantu Anda bertanya dan menjawab pertanyaan, memberikan umpan balik, dan mendengar dari para ahli yang memiliki pengetahuan yang luas.

Apakah informasi ini berguna?

Seberapa puaskah Anda dengan kualitas bahasanya?
Apa yang memengaruhi pengalaman Anda?
Dengan menekan kirim, umpan balik Anda akan digunakan untuk meningkatkan produk dan layanan Microsoft. Admin TI Anda akan dapat mengumpulkan data ini. Pernyataan Privasi.

Terima kasih atas umpan balik Anda!

×