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 olmayabilecek ifadelerin değerlendirilmesini engeller. Korumalı alan modu hakkında daha fazla bilgi için, Yardım'da "korumalı alan modu" araması yapın.
Bir dosyanın, dizinin veya klasörün özniteliklerini temsil eden bir Tamsayı döndürür.
Söz dizimi
GetAttr(yol adı)
Gerekli yol adıbağımsız değişkeni, bir dosya adı belirten bir dize ifadesidir. Yol adı dizini veya klasörü ve sürücüyü içerebilir.
Sonuç 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 mevcut değildir. |
| vbDirectory | 16 | Dizin veya klasör. |
| vbArşiv | 32 | Dosya son yedeklemeden sonra değişti. Macintosh'ta mevcut değildir. |
| vbDiğer Adı | 64 | Belirtilen dosya adı bir diğer addır. Yalnızca Macintosh'ta kullanılabilir. |
Not
Bu sabitler Visual Basic for ApplicationsVisual Basic for Applications tarafından belirtilir. Adlar, kodunuzun 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 ayarlandığını belirlemek için And işlecini kullanarak GetAttr işlevinin döndürdüğü değerle istediğiniz tek dosya özniteliğinin değerini bit düzeyinde karşılaştırın. Sonuç sıfır değilse, bu öznitelik adlandırılmış dosya için ayarlanır. Örneğin, ArchiveArşiv özniteliği ayarlanmamışsa, aşağıdaki And ifadesinin dönüş değeri sıfırdır:
Result = GetAttr(FName) And vbArchive
ArchiveArşiv özniteliği ayarlanırsa sıfır olmayan bir değer döndürülür.
Örnek
Bu örnekte, bir dosyanın ve dizin veya klasörün özniteliklerini belirlemek için GetAttr işlevi kullanılmıştı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.