Applies ToAccess untuk Microsoft 365 Access 2021 Access 2019 Access 2016

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 )

Nama jalur yang diperlukanargumen 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:

Konstanta

Nilai

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 per bit 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 yang dikembalikan dari ekspresi Dan berikut ini adalah nol jika atribut Arsip tidak diatur:

Result = GetAttr(FName) And vbArchive

Nilai bukan beku dikembalikan jika atribut Archive 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.

Perlu bantuan lainnya?

Ingin opsi lainnya?

Jelajahi manfaat langganan, telusuri kursus pelatihan, pelajari cara mengamankan perangkat Anda, dan banyak lagi.

Komunitas membantu Anda bertanya dan menjawab pertanyaan, memberikan umpan balik, dan mendengar dari para ahli yang memiliki pengetahuan yang luas.