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 sandboxu, což brání vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu sandboxu najdete v nápovědě pro "režim sandboxu".
Vrátí hodnotu typu Variant (String) představující aktuální cestu.
Syntaxe
CurDir[(jednotka)]
Volitelná jednotkaArgument je Řetězcový výraz, která určuje existující jednotku. Pokud není zadána žádná jednotka nebo pokud je jednotka řetězcem nulové délky (""), vrátí CurDir cestu k aktuální jednotce. Na macintosh, CurDir ignoruje všechny zadané jednotky a jednoduše vrátí cestu pro aktuální jednotku.
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.
Tento příklad používá funkci CurDir k vrácení aktuální cesty. Na Macintoshi jsou specifikace jednotek dané CurDir ignorovány. Výchozí název jednotky je HD a části názvu cesty jsou oddělené dvojtečkami místo zpětných lomítek. Podobně byste místo \Windows zadali 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".
