注意
如果 Microsoft Jet 運算式服務以沙箱模式執行，則會停用本主題中所述的函數、方法、物件或屬性，這會防止評估可能不安全的運算式。 如需沙箱模式的詳細資訊，請在說明中搜尋「沙箱模式」。
傳回表示目前路徑 (字串) 變體。
語法
CurDir[ (drive) ]
選用的 drive引數是指定現有磁碟機的字串運算式。 如果未指定任何磁碟機，或者 磁碟機 是零長度字串 (“) ，則 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".