Herbers Excel-Forum - das Archiv

VBA in Pfadangabe Dateiname abtrennen

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
Excel-Beispiele zum Thema "VBA in Pfadangabe Dateiname abtrennen"
Dateinamen filtern Dateiname aus dem vollen Namen extrahieren
Dateiname vorgeben bei Druck in Printdatei Dateinamen in Listbox
Dateinamen in Tabelle einlesen Dateinamen eines Verzeichnisses als HTML-Datei
Grafik nach Eingabe des Dateinamens einfügen Dateinamen in TabStrip-Elemente einlesen
Datei entsprechend der Eingabe des Dateinamens öffnen Dateinamen in UserForm-ComboBox einlesen und Datei öffnen