• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,498
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
GETATTR( PathName )

Belirli bir dosyanın, dizinin veya klasörün niteliklerini temsil eden bir Integer [SUP]tam sayı[/SUP] 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