Fungsi FileAttr

Catatan: Fungsi, metode, objek, atau properti yang diuraikan dalam topik ini dinonaktifkan jika Layanan ekspresi Microsoft jet berjalan dalam mode Sandbox, yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode Sandbox, Cari "mode Sandbox" dalam bantuan.

Mengembalikan panjang yang menunjukkan mode file untuk file yang dibuka menggunakan pernyataan Open .

Sintaks

Fileattr ( filenumber , returntype )

Sintaks fungsi Fileattr memiliki argumen ini:

Argumen

Deskripsi

nama file

Diperlukan. AK. nomor fileyang valid.

returntype

Diperlukan. Bilangan bulat. Angka menunjukkan tipe informasi yang akan dikembalikan. Tentukan 1 untuk mengembalikan nilai yang menunjukkan mode file. Pada sistem 16-bit saja, tentukan 2 untuk mengambil gagang file sistem operasi. returntype 2 tidak didukung dalam sistem bit 32 dan menyebabkan kesalahan.

Nilai yang dikembalikan

Ketikaargumenreturntype adalah 1, nilai yang dikembalikan berikut ini menunjukkan mode akses file:

Modus

Nilai

Memasukan

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 dari file yang terbuka. Gagang file dikembalikan hanya pada sistem 16-bit; pada sistem bit 32, melewati 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?

Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×