VBA in Pfadangabe Dateiname abtrennen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: VBA in Pfadangabe Dateiname abtrennen
von: Domi
Geschrieben am: 15.02.2005 09:12:35
Hallo Leute,
Ich habe eine VBA Prozedur bei der ich den Pfad ermittle.
Wie kann ich aus der Variabel mit Pfadangabe "C:\Test\Daten\gesamt.xls" den Dateinamen abtrennen, so das ich nur noch die Pfadangabe "C:\Test\Daten\\" erhalte?
Da war doch irgendwas mit Left, Right, InStr oder?
besten Dank und freundliche Grüsse
Domi

Bild

Betrifft: AW: VBA in Pfadangabe Dateiname abtrennen
von: u_
Geschrieben am: 15.02.2005 10:13:04
Hallo,
InStr kannst du nicht anwenden, da \ mehrmals vorkommt. Also \ von hinten suchen:

Sub Pfad()
Dim i As Integer, var As String, strPfad As String
var = "C:\Test\Daten\gesamt.xls"
For i = Len(var) To 1 Step -1
  If Mid(var, i, 1) = "\" Then
    strPfad = Left(var, i)
    Exit For
  End If
Next i
End Sub

Gruß
Bild

Betrifft: Super, vielen Dank o.T
von: Domi
Geschrieben am: 15.02.2005 10:19:17
-
Bild

Betrifft: AW: VBA in Pfadangabe Dateiname abtrennen
von: UweD
Geschrieben am: 15.02.2005 10:14:19
Hallo Domi

so z.b.

Sub Trennen()
    Dim Kompl$, Datei$, Pfad$
    Kompl = "C:\Test\Daten\gesamt.xls"
    Datei = Mid(Kompl, InStrRev(Kompl, "\") + 1)
    Pfad = Left(Kompl, Len(Kompl) - Len(Datei))
    MsgBox "Datei= " & Datei
    MsgBox "Pfad= " & Pfad
    
End Sub


Gruß aus Siegen
 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA in Pfadangabe Dateiname abtrennen"