Uwaga
Funkcja, metoda, obiekt lub właściwość opisane w tym temacie są wyłączone, jeśli usługa wyrażeń Microsoft Jet działa w trybie piaskownicy, co uniemożliwia ocenę potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji o trybie piaskownicy, wyszukaj termin "tryb piaskownicy" w Pomocy.
Zwraca wariant (ciąg) reprezentujący bieżącą ścieżkę.
Składnia
CurDir[(dysk)]
Argument opcjonalny dyskjest wyrażeniem ciągu określającym istniejący dysk. Jeśli nie zostanie określony żaden dysk lub jeśli dysk jest ciągiem o zerowej długości (""), CurDir zwraca ścieżkę bieżącego dysku. Na komputerach Macintosh CurDir ignoruje każdy określony dysk i zwraca jedynie ścieżkę bieżącego dysku.
Przykład
Uwaga
Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.
W tym przykładzie użyto funkcji CurDir w celu zwrócenia bieżącej ścieżki. Na komputerach Macintosh specyfikacje sterowników podane CurDir są ignorowane. Domyślna nazwa dysku to "HD", a części ścieżki są oddzielone dwukropkami zamiast ukośnikami odwrotnymi. Podobnie należy określić foldery Macintosh zamiast \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".