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(pathname)
Argumen nama jaluryang diperlukan adalah ekspresi string yang menentukan nama file. Nama jalur mungkin menyertakan direktori atau folder, dan kandar.
Nilai yang Dikembalikan
Nilai yang dikembalikan oleh GetAttr adalah jumlah nilai atribut berikut:
| Konstan | Value | Deskripsi |
|---|---|---|
| vbNormal | 0 | Normal. |
| vbReadOnly | 1 | Baca-saja. |
| vbHidden | 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 for Applications. Nama dapat digunakan di mana saja dalam kode Anda sebagai ganti 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 diatur, gunakan operator And untuk melakukan perbandingan bit dari nilai yang dikembalikan oleh fungsi GetAttr dan nilai atribut file individual yang Anda inginkan. Jika hasilnya bukan nol, atribut tersebut diatur untuk file bernama. Misalnya, nilai kembali dari ekspresi Dan berikut ini adalah nol jika atribut Arsip tidak diatur:
Result = GetAttr(FName) And vbArchive
Nilai bukan beku 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.