- Katılım
- 25 May 2018
- Mesajlar
- 1,610
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Microsoft 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)
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. (
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ği | Değer | Açı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