CurDir-FunktionCurDir function

Gibt eine Variant (Zeichenfolge) zurück, die den aktuellen Pfad darstellt.Returns a Variant (String) representing the current path.

SyntaxSyntax

CurDir [ (drive) ]CurDir [ (drive) ]

Das optionale Argument drive ist ein Zeichenfolgenausdruck, der ein vorhandenes Laufwerk angibt.The optional drive argument is a string expression that specifies an existing drive. Wenn kein Laufwerk angegeben ist oder wenn drive eine leere Zeichenfolge ("") ist, so gibt, CurDir den Pfad des aktuellen Laufwerks zurück.If no drive is specified or if drive is a zero-length string (""), CurDir returns the path for the current drive. Auf einem Macintosh-Computer ignoriert CurDir alle angegebenen Laufwerke und gibt einfach den Pfad für das aktuelle Laufwerk zurück.On the Macintosh, CurDir ignores any drive specified and simply returns the path for the current drive.

BeispielExample

In diesem Beispiel wird die CurDir-Funktion verwendet, um die aktuelle Systemzeit zurückzugeben.This example uses the CurDir function to return the current path. Auf einem Macintosh-Computer werden die für CurDir angegebenen Spezifikationen von drive ignoriert.On the Macintosh, drive specifications given to CurDir are ignored. HD ist der Standardlaufwerkname, und Teile des Pfadnamens werden durch Doppelpunkte statt umgekehrte Schrägstriche getrennt.The default drive name is HD, and portions of the pathname are separated by colons instead of backslashes. In ähnlicher Weise würden Sie Macintosh-Ordner anstelle von \Windows angeben.Similarly, you would specify Macintosh folders instead of \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".

Siehe auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.