Obs
Funktionen, metoden, objektet eller egenskapen som beskrivs i det här avsnittet inaktiveras om Microsoft Jet Expression Service körs i begränsat läge, vilket förhindrar utvärderingen av potentiellt osäkra uttryck. Om du vill ha mer information om begränsat läge söker du efter "begränsat läge" i hjälpen.
Returnerar ett värde av datatypen Variant (sträng) som representerar den aktuella sökvägen.
Syntax
CurDir[(enhet)]
Det valfria argumentet enhetär ett stränguttryck som anger en befintlig enhet. Om ingen enhet anges eller om enheten är en sträng med längden noll (""), returnerar CurDir sökvägen för den aktuella enheten. På Macintosh ignorerar CurDir alla angivna enheter och returnerar helt enkelt sökvägen för den aktuella enheten.
Exempel
Obs
I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.
I det här exemplet används funktionen CurDir för att returnera den aktuella sökvägen. På Macintosh ignoreras enhetsspecifikationer som getts till CurDir . Standardnamnet på enheten är "HD" och delar av sökvägen avgränsas med kolon istället för omvända snedstreck. På samma sätt anges Macintosh-mappar i stället för \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".