Not: Microsoft Jet İfade Hizmeti korumalı alan modunda çalışıyorsa, bu konuda açıklanan işlev, yöntem, nesne veya özellik devre dışı bırakılır ve bu da güvenli olabilecek ifadelerin değerlendirilmesini engeller. Korumalı alan modu hakkında daha fazla bilgi için Yardım'da "korumalı alan modu" araması yapın.
Dosya, dizin veya klasörün özniteliklerini temsil eden bir Tamsayı döndürür.
Söz dizimi
GetAttr ( pathname )
Gerekli yol adıbağımsız değişken, dosya adını belirten bir dize ifadesi. Yol adı dizini veya klasörü ve sürücüyü içerebilir.
Dönüş Değerleri
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 |
Son yedeklemeden bu yana dosya 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, kodunuzda gerçek değerler yerine herhangi bir yerde 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 ayarlandığını belirlemek için Ve işlecini kullanarak GetAttr işlevi tarafından döndürülen değerin ve istediğiniz tek dosya özniteliğinin değerinin bit düzeyinde karşılaştırma gerçekleştirin. Sonuç sıfır değilse, bu öznitelik adlandırılmış dosya için ayarlanır. Örneğin, Archive özniteliği ayarlanmadıysa aşağıdaki And ifadesinin dönüş değeri sıfırdır:
Result = GetAttr(FName) And vbArchive
Archive özniteliği ayarlanırsa sıfır olmayan bir değer döndürülür.
Örnek
Bu örnek, bir dosya ve dizin veya klasörün özniteliklerini belirlemek için GetAttr işlevini kullanı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.
