GetAttr İşlevi

Not: Microsoft Jet Expression Service korumalı alan modunda çalıştırılıyorsa, bu konuda açıklanan işlev, yöntem, nesne veya özellik devre dışı bırakılır ve bu da güvenli olmayabilecek ifadelerin değerlendirilmesini önler. Korumalı alan modu hakkında daha fazla bilgi için Yardım'da "korumalı alan modu" araması.

Dosya, dizin veya klasörün özniteliklerini temsil eden bir Tamsayı döndürür.

Söz dizimi

GetAttr ( yoladı )

Gerekli yolbağımsız değişken,dize ifadesi adı belirten bir addır. Yol adı, dizini veya klasörü ve sürücüyü içerebilir.

Return Values

GetAttr tarafından döndürülen değer, aşağıdaki öznitelik değerlerinin toplamıdır:

Sabit

Değer

Açıklama

vbNormal

0

Normal.

vbReadOnly

1

Salt okunur.

vbHidden

2

Gizli.

vbSystem

4

Sistem dosyası. Macintosh'ta kullanılamaz.

vbDirectory

16

Dizin veya klasör.

vbArchive

32

Dosya son yedeklemeden bu yana değişti. Macintosh'ta kullanılamaz.

vbAlias

64

Belirtilen dosya adı bir diğer addır. Yalnızca Macintosh'ta kullanılabilir.


Not: Bu sabitler Visual Basic for Applications tarafından belirtilir. Adlar kodun herhangi bir yerinde gerçek değerlerin yerine kullanılabilir.

Açıklamalar

Not: Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.

Hangi özniteliklerin ayar olduğunu belirlemek için, And işlecini kullanarak GetAttr işlevinin bit düzeyinde karşılaştırma değeri ve istediğiniz tek tek dosya özniteliğinin değerini ayarlayın. Sonuç sıfır değil, adlandırılmış dosya için bu öznitelik ayarlanır. Örneğin, Arşiv özniteliği ayarlanmazsa, aşağıdaki And ifadesinin dönüş değeri sıfır olur:

Result = GetAttr(FName) And vbArchive

Arşiv özniteliği ayarlanırsa sıfırdan farklı bir değer döndürülür.

Örnek

Bu örnekte, dosya ve dizin veya klasörün özniteliklerini belirlemek için GetAttr işlevi kullanılır. Macintosh'ta yalnızca vbNormal, vbReadOnly, vbHidden ve vbAlias sabitleri kullanılabilir.

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.

Daha fazla yardıma mı ihtiyacınız var?

Office yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Office Insider Programına Katılın

Bu bilgi yararlı oldu mu?

Görüşleriniz için teşekkür ederiz!

Geri bildiriminiz için teşekkürler! Office destek temsilcilerimizden biriyle görüşmeniz yararlı olabilir.

×