• 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,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
DIR( [PathName], [Attributes] )

Bir desen veya öz nitelikle eşleşen bir dosya veya dizinin adını döndürür. (String)

[PathName]Bir dosya veya dizinin tam yolu (String).
[Attributes]Dosya özniteliklerini belirten bir vbFileAttribute sabiti. (Integer)
0 = vbNormal (varsayılan)
1 = vbReadOnly
2 = vbHidden
4 = vbSystem
8 = vbVolume (Yalnızca Macintosh)
16 = vbDirectory
64 = vbAlias (Yalnızca Macintosh)

Açıklamalar
* [PathName] bir dizin ve sürücü içerebilir.
* [PathName] bulunamazsa, sıfır uzunluklu bir metin ("") döndürülür.
* [Attributes] sabit veya sayısal bir ifade olabilir.
* [Attributes] boş bırakılırsa, 0 kullanılır. Bunlar [PathName] ile eşleşen ancak hiçbir öz niteliği olmayan dosyalardır.
* (*) Ve (?) Karakterleri joker karakter olarak kullanılabilir.
* Bir klasördeki tüm dosyalar üzerinde yineleme yapmak için, [PathName] için boş bir metin belirtin.
* Bu işlevin ilk çağrılmasında [PathName] belirtmeniz gerekir, aksi halde bir hata oluşur.
* Ek dosya isimleri almak için argüman olmadan bu fonksiyonu tekrar arayın.
* Sonraki çağrılarda bir [PathName] belirtmelidir.
* Daha fazla dosya kalmadığında boş bir metin döndürülür.
* Dosya adları, belirli bir sırayla zorunlu olarak iade edilmez; bu nedenle, bunları bir diziye eklemeniz ve bunları görüntülemeden önce sıralamanız gerekebilir.
* VbAlias ve vbVolumn öznitelikleri sadece Macintosh'ta kullanılabilir.
* Bu işlevi tekrar tekrar çağıramazsınız.
* [Attributes] > 256 ise, MacID değeri olarak kabul edilir.
* Variant / String veri türü yerine bir String veri türü döndürmek isterseniz DIR$ işlevini kullanabilirsiniz.

Örnek Kullanım
PHP:
Sub ExcelTurkey()
    Dim a%, klasör$, dosya$
    a = 2
    klasör = Environ("USERPROFILE") & "\Desktop\"
    dosya = Dir(klasör, vbDirectory)
    Do Until dosya = ""
        If InStr(1, dosya, ".xl") > 0 Then
            Cells(a, "A") = klasör & dosya
            a = a + 1
        End If
    dosya = Dir()
    Loop
End Sub
PHP:
Sub ExcelTurkey()
    Dir ("C:\Windows\*ini")
    a = Dir()
    Dir ("//server\klasor\altklasor") 'Server üzerinde ise
End Sub
 
Üst Alt