Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Funktionssammlung: Verzeichnis ermitteln

Das Verzeichnis einer Funktion kann man mit passenden Zeichenfunktionen leicht ermitteln. Noch einfacher geht es mit einer Funktion der Wizhook-Bibliothek, wie dieser Artikel zeigt.

Beschreibung

Die Funktion Verzeichhnis erwartet lediglich die Angabe des kompletten Pfads des Dokuments, zu dem das Verzeichnis ausgegeben werden soll.

Funktionscode

Function Verzeichnis(strPfad As String) As String

    Dim strDrive As String

    Dim strDir As String

    Dim strFile As String

    Dim strExt As String

    WizHook.Key = 51488399

    WizHook.SplitPath strPfad, strDrive, strDir, strFile, strExt

    Verzeichnis = strDrive & strDir

End Function

Syntax

Debug.Print Verzeichnis "c:\test.pdf"

© 2003-2015 André Minhorst Alle Rechte vorbehalten.