Bei Microsoft anmelden
Melden Sie sich an, oder erstellen Sie ein Konto.
Hallo,
Wählen Sie ein anderes Konto aus.
Sie haben mehrere Konten.
Wählen Sie das Konto aus, mit dem Sie sich anmelden möchten.

Hinweis: Die in diesem Thema beschriebene Funktion, Methode, Objekt oder Eigenschaft ist deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandboxmodus ausgeführt wird, der die Auswertung potenziell unsicherer Ausdrücke verhindert. Weitere Informationen zum Sandboxmodus finden Sie, wenn Sie in der Hilfe nach "Sandboxmodus" suchen.

Gibt einen Wert vom Typ Variant (String) zurück, der den aktuellen Pfad darstellt.

Syntax

CurDir[(drive)]

Das optionale LaufwerkArgument ist eine Zeichenfolgenausdruck, die ein vorhandenes Laufwerk angibt. Wenn kein Laufwerk angegeben ist oder laufwerk eine Zeichenfolge der Länge Null ist (""), gibt CurDir den Pfad für das aktuelle Laufwerk zurück. Auf dem Macintosh ignoriert CurDir jedes angegebene Laufwerk und gibt einfach den Pfad für das aktuelle Laufwerk zurück.

Beispiel

Hinweis: Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.

In diesem Beispiel wird die CurDir-Funktion verwendet, um den aktuellen Pfad zurückzugeben. Auf dem Macintosh werden die fürCurDir angegebenen Laufwerksspezifikationen ignoriert. Der Standardlaufwerkname lautet "HD", und Teile des Pfadnamens werden durch Doppelpunkte anstelle umgekehrter Schrägstriche getrennt. Entsprechend müssen Sie Macintosh-Ordner anstelle von "\Windows" angeben.

' 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".

Benötigen Sie weitere Hilfe?

Möchten Sie weitere Optionen?

Erkunden Sie die Abonnementvorteile, durchsuchen Sie Trainingskurse, erfahren Sie, wie Sie Ihr Gerät schützen und vieles mehr.

In den Communities können Sie Fragen stellen und beantworten, Feedback geben und von Experten mit umfassendem Wissen hören.

War diese Information hilfreich?

Wie zufrieden sind Sie mit der Sprachqualität?
Was hat Ihre Erfahrung beeinflusst?
Wenn Sie auf "Absenden" klicken, wird Ihr Feedback zur Verbesserung von Produkten und Diensten von Microsoft verwendet. Ihr IT-Administrator kann diese Daten sammeln. Datenschutzbestimmungen.

Vielen Dank für Ihr Feedback!

×