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.
