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 utat jelölő Variant (sztring) értéket ad vissza.
Szintaxis
CurDir[(meghajtó)]
A választható meghajtóargumentumegy sztringkifejezés, amely egy meglévő meghajtót határoz 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 visszaadja az aktuális meghajtó elérési útját.
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énnyel adja vissza az aktuális útvonalat. Macintosh rendszeren a CurDirnek megadott meghajtóspecifikációk figyelmen kívül lesznek hagyva. Az alapértelmezett meghajtónév a "HD", és az elérési út egyes részeit fordított perjelek helyett kettőspont választja el egymástól. 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".