Megjegyzés
A témakörben ismertetett függvény, metódus, objektum vagy tulajdonság le van tiltva, ha a Microsoft Jet Expression Service védőfalas üzemmódban fut, mivel ez megakadályozza az esetleg nem biztonságos kifejezések kiszűrését. A védőfalas üzemmódról a súgóban a „védőfalas üzemmód” kifejezésre keresve talál további információt.
Az aktuális elérési útnak megfelelő variánst (karakterláncot) ad eredményül.
Szintaxis
CurDir[(meghajtó)]
Az opcionális meghajtóargumentum egy karakterlánc-kifejezés, amely egy meglévő meghajtót ad meg. Ha nincs megadva meghajtó, vagy ha a meghajtó nulla hosszúságú karakterlánc (""), a CurDir az aktuális meghajtó elérési útját adja vissza. Macintosh rendszeren a CurDir figyelmen kívül hagyja a megadott meghajtókat , és egyszerűen az aktuális meghajtó elérési útját adja vissza.
Példa
Megjegyzés
A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
Ez a példa a CurDir függvényt használja az aktuális elérési út visszaadására. Macintosh rendszeren a rendszer figyelmen kívül hagyja a CurDirnek megadott meghajtóspecifikációkat. Az alapértelmezett meghajtónév a "HD", és az elérési út részei között fordított perjelek helyett kettőspontok állnak. Ugyanígy a \Windows mappák helyett Macintosh mappák szerepelnek.
' 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".