Poznámka: Funkcia, metóda, objekt alebo vlastnosť, ktoré sú popísané v tejto téme, sú vypnuté, ak je služba Microsoft Jet Expression Service spustená v režime karantény, ktorý zabraňuje vo vyhodnocovaní možných nebezpečných výrazov. Ďalšie informácie o režime karantény nájdete vyhľadaním výrazu „režim karantény“ v Pomocníkovi.
Vráti hodnotu typu Variant (String), ktorá predstavuje aktuálnu cestu.
Syntax
CurDir[(jednotka)]
Voliteľný argument jednotka argument je reťazcový výraz, ktorý určuje existujúcu jednotku. Ak nie je zadaný žiadny disk, alebo ak argument jednotka je reťazec s nulovou dĺžkou (""), funkcia CurDir vráti cestu k aktuálnej jednotke. V počítači Macintosh funkcia CurDir ignoruje akúkoľvek zadanú jednotku a jednoducho vráti cestu pre aktuálnu jednotku.
Príklad
Poznámka: Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.
V tomto príklade je funkcia CurDir použitá na vrátenie aktuálnej cesty. V počítači Macintosh sa špecifikácia jednotky zadaná vo funkcii CurDir ignoruje. Predvolený názov jednotky je „HD“ a časti názvu cesty sú oddelené dvojbodkami, nie opačnými lomkami. Podobne sa zadávajú aj priečinky s názvom Macintosh namiesto \Windows.
' 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".