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 bilangan bulat yang mewakili atribut file, direktori, atau folder.
Sintaks
GetAttr(nama jalur)
Argumen nama jaluryang diperlukan adalah ekspresi string yang menentukan nama file. Nama jalur mungkin mencakup direktori atau folder, dan drive.
Mengembalikan nilai
Nilai yang dihasilkan oleh GetAttr adalah jumlah dari nilai atribut berikut:
| Konstanta | Value | Deskripsi |
|---|---|---|
| vbNormal | 0 | Normal. |
| vbReadOnly | 1 | Baca-saja. |
| vbTersembunyi | 2 | Tersembunyi. |
| vbSystem | 4 | File sistem. Tidak tersedia di Macintosh. |
| vbDirectory | 16 | Direktori atau folder. |
| vbArchive | 32 | File telah berubah sejak pencadangan terakhir. Tidak tersedia di Macintosh. |
| vbAlias | 64 | Nama file yang ditentukan adalah alias. Hanya tersedia di Macintosh. |
Catatan
Konstanta ini ditentukan oleh Visual Basic untuk Applications. Nama dapat digunakan di mana saja dalam kode Anda sebagai pengganti nilai aktual.
Keterangan
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.
Untuk menentukan atribut mana yang ditetapkan, gunakan operator And untuk melakukan perbandingan per bit dari nilai yang dihasilkan oleh fungsi GetAttr dan nilai atribut file individual yang Anda inginkan. Jika hasilnya bukan nol, atribut tersebut diatur untuk file yang diberi nama. Misalnya, nilai yang dikembalikan dari ekspresi Dan berikut adalah nol jika atribut Arsip tidak ditetapkan:
Result = GetAttr(FName) And vbArchive
Nilai bukan nol dikembalikan jika atribut Arsip diatur.
Contoh
Contoh ini menggunakan fungsi GetAttr untuk menentukan atribut file dan direktori atau folder. Di Macintosh, hanya konstanta vbNormal, vbReadOnly, vbHidden dan vbAlias yang tersedia.
Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE") ' Returns 2.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And vbHidden
' Assume file TESTFILE has hidden and
' read-only attributes set.
MyAttr = GetAttr("TESTFILE") ' Returns 3.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)
' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR") ' Returns 16.