注意
若 Microsoft Jet Expression Service 以沙盒模式執行，則本主題所述的函式、方法、物件或屬性將被禁用，避免評估潛在不安全的表達式。 想了解更多沙盒模式的資訊，請在說明中搜尋「sandbox mode」。
回傳一個變 體 (字串) ，代表目前的路徑。
語法
CurDir[ () ]
可選的磁碟機參數是一個字串表達式，用來指定現有的磁碟機。 若未指定磁碟機，或磁碟為零長度的字串 (“”) ，CurDir 會回傳目前磁碟機的路徑。 在 Macintosh 上， CurDir 會忽略指定的 硬碟 ，直接回傳目前硬碟的路徑。
範例
注意
下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊，請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考]，並在 [搜尋] 方塊中輸入一個或多個字詞。
此範例使用 CurDir 函式回傳當前路徑。 在 Macintosh 上，給 CurDir 的硬碟規格會被忽略。 預設的磁碟名稱是「HD」，路徑名稱的部分區域以冒號分隔，而非反斜線。 同樣地，你應該指定 Macintosh 資料夾，而不是 \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".