Not: Microsoft Jet İfade Hizmeti korumalı alan modunda çalışıyorsa, bu konuda açıklanan işlev, yöntem, nesne veya özellik devre dışı bırakılır ve bu da güvenli olabilecek ifadelerin değerlendirilmesini engeller. Korumalı alan modu hakkında daha fazla bilgi için Yardım'da "korumalı alan modu" araması yapın.
Geçerli yolu temsil eden bir Değişken (Dize) döndürür.
Söz dizimi
CurDir[(sürücü)]
İsteğe bağlı sürücübağımsız değişken, var olan bir sürücüyü belirten bir dize ifadesi. Hiçbir sürücü belirtilmezse veya sürücü sıfır uzunluklu dize ("") ise CurDir geçerli sürücünün yolunu döndürür. Macintosh'ta CurDir belirtilen herhangi bir sürücüyü yoksayar ve yalnızca geçerli sürücünün yolunu döndürür.
Örnek
Not: Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.
Bu örnek geçerli yolu döndürmek için CurDir işlevini kullanır. Macintosh'ta CurDir'e verilen sürücü belirtimleri yoksayılır. Varsayılan sürücü adı "HD" ve yol adının bölümleri ters eğik çizgi yerine iki nokta üst üste ile ayrılır. Benzer şekilde, \Windows yerine Macintosh klasörleri belirtirsiniz.
' Assume current path on C drive is "C:\WINDOWS\SYSTEM" (on Microsoft Windows).
' Assume current path on D drive is "D:\EXCEL".
' Assume C is the current drive.
Dim MyPath
MyPath = CurDir ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("C") ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("D") ' Returns "D:\EXCEL".
