Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA in Pfadangabe Dateiname abtrennen

VBA in Pfadangabe Dateiname abtrennen
15.02.2005 09:12:35
Domi
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA in Pfadangabe Dateiname abtrennen
u_
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ß
Super, vielen Dank o.T
15.02.2005 10:19:17
Domi
-
AW: VBA in Pfadangabe Dateiname abtrennen
UweD
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
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige