Fungsi GetAttr

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 bilangan bulat menunjukkan atribut dari file, direktori atau folder.

Sintaks

GetAttr ( path )

Diperlukan pathargumen adalah ekspresi string yang menentukan nama file. Path mungkin menyertakan direktori atau folder, dan drive.

Nilai yang dikembalikan

Nilai yang dikembalikan oleh GetAttr adalah jumlah nilai atribut berikut ini:

Konstanta

Nilai

Deskripsi

vbNormal

0

Normal.

vbReadOnly

1

Baca-saja.

vbHidden

2

Disembunyikan.

vbSystem

4

Sistem file. 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 yang ditentukan adalah alias. Tersedia hanya di Macintosh.


Catatan: Konstanta ini ditentukan oleh Visual Basic for Applications. Nama bisa 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 lebih lanjut 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 dan untuk melakukan perbandingan per bit dari nilai yang dikembalikan oleh fungsi GetAttr dan nilai atribut individual file yang Anda inginkan. Jika hasilnya bukan nol, atribut yang diatur untuk file bernama. Sebagai contoh, nilai yang dikembalikan dan ekspresi berikut ini adalah nol jika atribut arsip tidak diatur:

Result = GetAttr(FName) And vbArchive

Nilai bukan nol yang dikembalikan jika atribut Arsip diatur.

Contoh

Contoh ini menggunakan fungsi GetAttr untuk menentukan atribut dari file dan direktori atau folder. Macintosh, hanya vbNormal konstanta, 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.

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.

×