İçindekiler
Yön Açıklama
Belirtilen yol adı ve özniteliklerle eşleşen ilk dosya adını döndürür.
Basit Yön Örnekleri
| 1 | MsgBox Dizini("") |
Bu, geçerli yoldaki ilk dosya adını döndürür.
Yön Sözdizimi
VBA Düzenleyicide, Dir İşlevinin sözdizimini görmek için “Dir(” yazabilirsiniz:
Dir işlevi 2 bağımsız değişken içerir:
YolAdı: [İsteğe bağlı] Bir dizini/klasörü/sürücüyü temsil eden bir dize ifadesi.
Bağlanmak: [İsteğe bağlı] Dosya özniteliklerini belirtir. Atlanırsa, yol adıyla eşleşen ancak özniteliği olmayan dosyaları döndürür.
NS Bağlanmak argüman ayarları şunlardır:
| Devamlı | Değer | Açıklama |
|---|---|---|
| vbNormal | 0 | (Varsayılan) Özniteliği olmayan dosyaları belirtir. |
| vbReadOnly | 1 | Özniteliği olmayan dosyalara ek olarak salt okunur dosyaları belirtir. |
| vbGizli | 2 | Özniteliği olmayan dosyalara ek olarak gizli dosyaları belirtir. |
| vbSystem | 4 | Özniteliği olmayan dosyalara ek olarak sistem dosyalarını belirtir. Macintosh'ta mevcut değildir. |
| vbVolume | 8 | Birim etiketini belirtir; başka bir nitelik belirtilirse,vbVolume göz ardı edilir. Macintosh'ta mevcut değildir. |
| vbDirectory | 16 | Özniteliği olmayan dosyalara ek olarak dizinleri veya klasörleri belirtir. |
| vbAlias | 64 | Belirtilen dosya adı bir diğer addır. Yalnızca Macintosh'ta kullanılabilir. |
VBA Programlama | Code Generator sizin için çalışıyor!
Excel VBA Yön İşlevi Örnekleri
C sürücüsündeki klasör ve dosyaları listelemek için aşağıdaki kodu kullanabilirsiniz.
| 123456789101112131415161718192021222324 | Alt Dir_Örnek()Dosya Adı Olarak Dize DimDim fullName As StringAralık Olarak KarartmaDim i Tamsayı OlarakSet rng = Aralık("A1")fileName = Dir("C:\", vbDirectory)ben = 1YapmakfullName = "C:\" & dosyaAdırng.Offset(i, 0) = dosyaAdırng.Offset(i, 1) = FileDateTime(fullName)rng.Offset(i, 2) = FileLen(fullName)rng.Offset(i, 3) = GetAttr(fullName)dosyaAdı = DirEğer fileName = "" O zaman Çıkış Yapben = ben + 1DöngüAlt Bitiş |
Sonuç aşağıdakine benzer olacaktır.
Access VBA'da VBA Dir İşlevi
VBA Dir işlevi, Access VBA'da Excel VBA'da olduğu gibi çalışır.
| 123456789 | İşlev CreateDirectory(StrP As String) As BooleanLen(Dir(strP, vbDirectory)) = 0 iseMkDir strPBitirCreateDirectory = DoğruÇıkış Fonksiyonubitirme:CreateDirectory = YanlışBitiş İşlevi |
