Makale GETATTR

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,239
En iyi yanıt
9
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
GETATTR( PathName )

Belirli bir dosyanın, dizinin veya klasörün niteliklerini temsil eden bir Integer tam sayı döndürür. (Integer)


PathName

İncelemek istediğiniz dosyanın tam yol adı. (String)

Açıklamalar
* PathName bir dizin ve sürücü içerebilir.
* Döndürülen değer, aşağıdaki değerlerin toplamıdır:
* Hangi öz niteliklerin ayarlandığını öğrenmenin en kolay yolu; AND işlecini kullanmaktır.
Öğenin bit değerini ve tekil dosya özniteliğinin değeri bu şekilde bulunabilir. (sonuc = GetAttr(dosyaadi) And vbArchive)

Dosya ÖzniteliğiDeğerAçıklama

vbNormal

0

Normal (varsayılan).

vbReadOnly

1

Sadece Okunur.

vbHidden

2

Gizli

vbSystem

4

Sistem dosyası. (Macintosh'ta mevcut değil)

vbDirectory

16

Dizin ya da Klasör

vbArchive

32

Son yedeklemeden bu yana dosya değişti. (Macintosh'ta mevcut değil)

vbAlias

64

Belirtilen dosya adı bir takma addır. (Sadece Macintosh'ta kullanılabilir)

PHP:
Sub ExcelTurkey()
    If (GetAttr("C:\Users\user\Desktop\Kitap1.xlsx") = VBA.vbArchive + VBA.vbNormal) Then
        MsgBox "Normal bir dosya"
    End If
    If (GetAttr("C:\Users\user\Desktop\Kitap1.xlsx") = 32) Then
        MsgBox "Normal bir dosya"
        If GetAttr("C:\Program Files") And vbDirectory > 0 Then
            MsgBox "Bu bir dizin"
        End If
    End If
End Sub
 
Üst Alt