Fungsi GetAttr

Penting: Artikel ini diterjemahkan oleh mesin, lihatlah notis penafian. Sila dapatkan versi Bahasa Inggeris artikel ini di sini sebagai rujukan anda

Nota: Fungsi, kaedah, objek atau sifat yang diperihalkan dalam topik ini dinyahdayakan jika Perkhidmatan Microsoft Jet ungkapan berjalan dalam mod kotak pasir yang menghalang penilaian ungkapan yang mungkin tidak selamat. Untuk maklumat lanjut tentang mod kotak pasir, Cari "mod kotak Pasir" dalam bantuan.

Mengembalikan Integer mewakili atribut fail, direktori atau folder.

Sintaks

GetAttr ( nama laluan terpencil )

Diperlukan nama laluan terpencilargumen adalah ungkapan rentetan yang menentukan nama fail. Nama laluan terpencil mungkin termasuk direktori atau folder dan pemacu.

Mengembalikan nilai

Nilai yang dikembalikan oleh GetAttr ialah jumlah nilai atribut berikut:

Pemalar

Nilai

Perihalan

vbNormal

0

Normal.

vbReadOnly

1

Baca sahaja.

vbHidden

2

Tersembunyi.

vbSystem

4

Fail sistem. Tidak tersedia pada Macintosh.

vbDirectory

16

Direktori atau folder.

vbArchive

32

Fail telah berubah sejak sandaran terakhir. Tidak tersedia pada Macintosh.

vbAlias

64

Nama fail yang ditentukan adalah alias. Hanya tersedia pada Macintosh.


Nota: Pemalar ini ditentukan oleh Visual Basic for Applications. Nama boleh digunakan di mana-mana dalam Kod anda menggantikan nilai sebenar.

Catatan

Nota: Contoh berikut menunjukkan penggunaan fungsi ini dalam Visual Basic for Applications (VBA) modul. Untuk maklumat lanjut tentang bekerja dengan VBA, pilih Rujukan pembangun dalam senarai juntai bawah di sebelah Cari dan memasukkan satu atau lebih istilah dalam kotak carian.

Untuk menentukan atribut yang disetkan, gunakan operator dan untuk melaksanakan perbandingan bit nilai yang dikembalikan oleh fungsi GetAttr dan nilai atribut fail individu yang anda inginkan. Jika hasil bukan sifar, atribut yang disetkan untuk fail bernama. Contohnya, nilai dikembalikan ungkapan dan berikut adalah sifar jika atribut Arkib tidak disetkan:

Result = GetAttr(FName) And vbArchive

Nilai bukan sifar yang dikembalikan jika atribut Arkib disetkan.

Contoh

Contoh ini menggunakan fungsi GetAttr untuk menentukan atribut fail dan direktori atau folder. Pada Macintosh, hanya vbNormal pemalar, vbReadOnly, vbHidden dan vbAlias adalah 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.

Nota: Notis Penafian Penterjemahan Mesin: Artikel ini telah diterjemah oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan penterjemahan mesin ini untuk membantu pengguna-pengguna yang tidak bertutur dalam Bahasa Inggeris supaya dapat menikmati kandungan mengenai produk, perkhidmatan dan teknologi Microsoft. Artikel ini mungkin mengandungi ralat perbendaharaan kata, sintaks atau tatabahasa kerana ia diterjemahkan oleh mesin.

Kembangkan kemahiran anda
Jelajahi latihan
Dapatkan ciri baru terlebih dahulu
Sertai Office Insiders

Adakah maklumat ini membantu?

Terima kasih atas maklum balas anda!

Terima kasih atas maklum balas anda! Nampaknya ia mungkin akan membantu untuk menyambungkan anda kepada salah seorang daripada ejen sokongan Office kami.

×