Willkommen bei Team-Moeller.de

Diese Funktion ist in folgenden Access-Versionen verfügbar: 2000, 2002, 2003, 2007, 2010

Zerlegt einen Dateipfad in die Bestandteile Laufwerk, Verzeichnis, Dateiname und -endung

Sub SplitPath(Path As String, Drive As String, Dir As String, File As String, Ext As String)

Dim strDatei As String
Dim strLW As String
Dim strPfad As String
Dim strDateiName As String
Dim strSuffix As String

'Werte übernehmen
strDatei = SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE"

'Pfad zerlegen
WizHook.Key = 51488399
WizHook.SplitPath strDatei, strLW, strPfad, strDateiName, strSuffix

'Ausgabe
MsgBox "Eingabe: " & strDatei & vbCrLf & vbCrLf & _
       "Ausgabe: " & vbCrLf & _
       "Laufwerk: " & strLW & vbCrLf & _
       "    Pfad: " & strPfad & vbCrLf & _
       "   Datei: " & strDateiName & vbCrLf & _
       "  Suffix: " & strSuffix

Die Funktion ist sehr robust. Wenn nur ein Teil des Dateipfades übergeben wird nur dieser zerlegt.

Path		Eingabe: Dateipfad
Drive		Ausgabe: Laufwerk
Dir		Ausgabe: Verzeichnis
File		Ausgabe: Dateiname
Ext		Ausgabe: Dateiendung