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 bilangan bulat yang mewakili atribut file, direktori, atau folder.
Sintaks
Getattr (jalurnama)
argumennama jalur yang diperlukan adalah ekspresi string yang menentukan nama file. Nama jalur dapat menyertakan direktori atau folder, dan drive.
Nilai yang dikembalikan
Nilai yang dikembalikan oleh Getattr adalah jumlah nilai atribut berikut:
Konstanta | Nilai | Deskripsi |
|---|---|---|
|
vbNormal |
0 |
Umumnya. |
|
vbReadOnly |
1 |
Baca-saja. |
|
vbHidden |
2 |
Misteri. |
|
vbSystem |
4 |
File sistem. Tidak tersedia di Macintosh. |
|
vbDirectory |
16 |
Direktori atau folder. |
|
vbArchive |
32 |
File telah berubah sejak terakhir cadangan. Tidak tersedia di Macintosh. |
|
vbAlias |
64 |
Nama file tertentu adalah alias. Hanya tersedia di Macintosh. |
Catatan: Konstanta ini ditentukan oleh Visual Basic for Applications. Nama dapat digunakan di mana saja di 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 yang diatur, gunakan operator and untuk melakukan perbandingan per bit nilai yang dikembalikan oleh fungsi getattr dan nilai dari atribut file individual yang Anda inginkan. Jika hasilnya bukan nol, atribut itu diatur untuk file bernama. Misalnya, nilai yang dikembalikan dari berikut ini dan ekspresi adalah nol jika atribut arsip tidak diatur:
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. Pada 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.
