Uwaga: Funkcja, metoda, obiekt lub właściwość opisana w tym temacie jest wyłączona, jeśli usługa wyrażeń Microsoft Jet działa w trybie piaskownicy, co uniemożliwia oszacowanie potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji na temat trybu piaskownicy, wyszukaj "tryb piaskownicy" w Pomocy.
Zwraca wartość typu wariant (ciąg) reprezentującą bieżącą ścieżkę.
Składnia
CurDir[(dysk)]
Opcjonalnyargumentdysków to wyrażenie tekstowe określający istniejący dysk. Jeśli nie określono dysku lub dysk jest ciągiem o zerowej długości (""), funkcja CurDir zwraca ścieżkę dla bieżącego dysku. Na komputerze Macintosh program CurDir ignoruje każdy określony dysk i po prostu zwraca ścieżkę dla 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 komputerze Macintosh specyfikacje dysków podane w witrynie CurDir są ignorowane. Domyślna nazwa dysku to "HD", a fragmenty nazwy ścieżki są oddzielone dwukropkami, a nie ukośnikami odwrotnymi. Podobnie należy określić foldery na komputerze 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".