CurDir-Funktion

Wichtig :  Dieser Artikel wurde maschinell übersetzt. Bitte beachten Sie den Haftungsausschluss. Die englische Version des Artikels ist als Referenz hier verfügbar: hier.

Hinweis : Die Funktion, die Methode, das Objekt oder die Eigenschaft, die bzw. das in diesem Thema erläutert wird, ist deaktiviert, falls der Ausdrucksdienst in Microsoft Jet im geschützten Modus (Sandbox Mode) ausgeführt wird. In diesem Modus wird die Auswertung von potenziell unsicheren Ausdrücken verhindert. Weitere Informationen zum geschützten Modus erhalten Sie, wenn Sie in der Hilfe nach "sandbox mode" suchen.

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

Syntax

CurDir[(drive)]

Das optionale drive-Argument ist ein Zeichenfolgenausdruck, der ein vorhandenes Laufwerk angibt. Wenn kein Laufwerk angegeben ist oder wenn drive eine leere Zeichenfolge ("") ist, gibt CurDir den Pfad des aktuellen Laufwerks zurück. Auf dem Macintosh ignoriert CurDir alle angegebenen Argumente vom Typ drive und gibt einfach den Pfad des aktuellen Laufwerks 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.

Dieses Beispiel verwendet die CurDir-Funktion, um den aktuellen Pfad zurückzugeben. Angaben zu drive für CurDir werden auf dem Macintosh ignoriert. Der Standardlaufwerkname lautet "HD", und Teile des Pfadnamens werden durch Doppelpunkte und nicht durch umgekehrte Schrägstriche voneinander getrennt. Außerdem 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".

Hinweis : Haftungsausschluss für maschinelle Übersetzungen: Dieser Artikel wurde mithilfe eines Computersystems und ohne jegliche Bearbeitung durch Personen übersetzt. Microsoft bietet solche maschinellen Übersetzungen als Hilfestellung für Benutzer ohne Englischkenntnisse an, damit Sie von den Informationen zu Produkten, Diensten und Technologien von Microsoft profitieren können. Da es sich bei diesem Artikel um eine maschinelle Übersetzung handelt, enthält er möglicherweise Fehler in Bezug auf (Fach-)Terminologie, Syntax und/oder Grammatik.

Teilen Facebook Facebook Twitter Twitter E-Mail E-Mail

War diese Information hilfreich?

Sehr gut. Noch anderes Feedback?

Was können wir verbessern?

Vielen Dank für Ihr Feedback!

×