Fungsi GetAttr

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.

Perlu bantuan lainnya?

Kembangkan keterampilan Office 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.

×