CurDir-Funktion
Hinweis: Die in diesem Thema beschriebenen Funktionen, Methoden, Objekte oder Eigenschaften sind deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandkastenmodus ausgeführt wird, wodurch die Auswertung potenziell unsicherer Ausdrücke verhindert wird. Um weitere Informationen zum Sandbox-Modus zu erhalten, suchen Sie in der Hilfe nach „Sandbox-Modus".
Gibt eine Variante ( String ) zurück, die den aktuellen Pfad darstellt.
Syntax
CurDir [ ( Laufwerk ) ]
Das optionale Argument Laufwerk ist ein Zeichenfolgenausdruck, der ein vorhandenes Laufwerk angibt. Wenn kein Laufwerk angegeben ist oder Laufwerk eine leere Zeichenfolge ("") 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 veranschaulichen die Verwendung dieser Funktion in einem Visual Basic for Applications (VBA)-Modul. Um weitere Informationen zum Arbeiten mit VBA zu erhalten, wählen Sie Entwicklerreferenz in der Dropdown-Liste 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 an CurDir übergebene Laufwerksspezifikationen ignoriert. Der standardmäßige Laufwerksname ist „HD", und Teile des Pfadnamens werden durch Doppelpunkte anstelle von Backslashes getrennt. In ähnlicher Weise würden 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".
No comments:
Post a Comment