Wie wird ein String mit einer absoluten Pfadangabe in VBA in die Teile Laufwerk, Verzeichnis und Dateiname zerlegt?

In VBA (Visual Basic for Applications) kannst du einen String mit einer absoluten Pfadangabe in die Teile Laufwerk, Verzeichnis und Dateiname zerlegen, indem du die Funktionen `InStr`, `Left`, `Right` und `Mid` verwendest. Hier ist ein Beispiel, wie das gemacht werden kann:

```vba
Sub ZerlegePfad()
Dim pfad As String
Dim laufwerk As String
Dim verzeichnis As String
Dim dateiname As String
Dim pos As Integer

' Beispielpfad
pfad = "C:\Users\Beispiel\Dokumente\Datei.txt"

' Laufwerk extrahieren
pos = InStr(pfad, "\")
If pos > 0 Then
laufwerk = Left(pfad, pos)
End If

' Dateiname extrahieren
pos = InStrRev(pfad, "\")
If pos > 0 Then
dateiname = Right(pfad, Len(pfad) - pos)
End If

' Verzeichnis extrahieren
If pos > 0 Then
verzeichnis = Mid(pfad, Len(laufwerk) + 1, Len(pfad) - Len(laufwerk) - Len(dateiname))
End If

' Ergebnisse anzeigen
MsgBox "Laufwerk: " & laufwerk & vbCrLf & "Verzeichnis: " & verzeichnis & vbCrLf & "Dateiname: " & dateiname
End Sub
```

In diesem Beispiel wird der Pfad "C:\Users\Beispiel\Dokumente\Datei.txt" in die Teile Laufwerk ("C:\"), Verzeichnis ("Users\Beispiel\Dokumente\") und Dateiname ("Datei.txt") zerlegt. Die `InStr`-Funktion wird verwendet, um die Position des ersten und letzten Backslashes zu finden, und die `Left`, `Right` und `Mid`-Funktionen werden verwendet, um die entsprechenden Teile des Pfads zu extrahieren.