Fungsi FileAttr

Penting: Artikel ini adalah terjemahan mesin, lihat penafian. Temukan versi bahasa Inggris artikel di sini sebagai rujukan Anda.

Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan ekspresi Microsoft Jet sedang berjalan di 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 lama yang mewakili mode file untuk file yang dibuka menggunakan pernyataan terbuka .

Sintaks

FileAttr ( filenumber , returntype )

Sintaks fungsi FileAttr memiliki argumen ini:

Argumen

Deskripsi

filenumber

Diperlukan. Bilangan bulat. Apa pun valid nomor file.

returntype

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

Nilai yang dikembalikan

Saat returntypeargumen adalah 1, berikut ini mengembalikan nilai menunjukkan mode akses file:

Mode

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 kembali file mode dan file gagang file yang terbuka. Gagang file dikembalikan hanya pada 16-bit sistem; pada sistem 32-bit, 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.

Catatan: Penafian Terjemahan Mesin: Artikel ini telah diterjemahan oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan terjemahan mesin ini untuk membantu pengguna yang bukan penutur bahasa Inggris agar dapat menikmati konten tentang produk, layanan, dan teknologi Microsoft. Karena artikel ini diterjemahkan oleh mesin, mungkin akan terdapat kesalahan kosa kata, sintaksis, atau tata bahasa.

Kembangkan keterampilan 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.

×