Hinweis
Die in diesem Thema beschriebene Funktion, Methode, das Objekt oder die Eigenschaft ist deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandkastenmodus 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 eine Variante (Zeichenfolge) zurück, die den aktuellen Pfad darstellt.
Syntax
CurDir[(Laufwerk)]
Das optionale Laufwerkargumentist ein Zeichenfolgenausdruck, der 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 an CurDir übergebenen Laufwerksspezifikationen ignoriert. Der Standardlaufwerksname lautet "HD", und Teile des Pfadnamens werden durch Doppelpunkte anstelle von Schrägstrichen 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".