Poznámka
Funkce, metoda, objekt nebo vlastnost popsané v tomto tématu jsou zakázány, pokud je služba Microsoft Jet Expression Service spuštěna v režimu izolovaného prostoru (sandbox), který znemožňuje vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu izolovaného prostoru vyhledáte zadáním dotazu "režim izolovaného prostoru" v nápovědě.
Vrátí hodnotu typu Variant (String) představující aktuální cestu.
Syntaxe
CurDir[(jednotka)]
Argument volitelné jednotkyje řetězcový výraz, který určuje existující jednotku. Pokud není zadaná žádná jednotka nebo pokud má jednotka řetězec nulové délky (""), vrátí CurDir cestu k aktuální jednotce. Na Macintoshi CurDir ignoruje jakoukoli zadanou jednotku a jednoduše vrátí cestu k aktuální jednotce.
Příklad
Poznámka
Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
V tomto příkladu se funkce CurDir používá k vrácení aktuální cesty. Na Macintoshi jsou specifikace jednotek zadané v CurDir ignorovány. Výchozí název jednotky je "HD" a části názvu cesty jsou oddělené dvojtečkami místo zpětnými lomítky. Podobně byste místo \Windows použili složky Macintosh.
' 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".