Nur Pfad ohne Dateiname

Bild

Betrifft: Nur Pfad ohne Dateiname
von: Thomas
Geschrieben am: 06.04.2005 06:05:03
Wunderschönen guten Morgen liebe Forum-Mitglieder
Ich suche eine Möglichkeit, wie ich per VBA den Pfad ohne Dateiname auslesen kann.
s = Application.ActiveWorkbook.Path '[Anzeige "C:\Eigene Dateien\Krfa\HSK\HSK-ProForst.xls"]
si = Right(si, InStr(1, StrReverse(si), "\") - 1) '[Anzeige "HSK-ProForst.xls"]
Ich will aber nur den Pfad ohne Dateiname
"C:\Eigene Dateien\Krfa\HSK\"
Kann mir jemand auf die Sprünge helfen, wie der Code ausschauen muss.
Vielen Dank
Gruss Thomas
(PS. Kann leider erst am Abend wieder im Forum nachschauen, Bitte Geduld=

Bild

Betrifft: AW: Nur Pfad ohne Dateiname
von: Hajo_Zi
Geschrieben am: 06.04.2005 06:09:33
Hallo Thomas,

Sub Test()
    Dim StAblage As String
    StAblage = ThisWorkbook.Path
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: Nur Pfad ohne Dateiname
von: Thomas
Geschrieben am: 06.04.2005 06:24:47
Hallo Hajo
Auch schon auf...?
Sorry, mein Fehler (ist noch ein bisschen früh).
Ich möchte vom Pfad die letzte Verzweigung abschneiden. Also statt "C:\Eigene Dateien\Krfa\HSK\ so "C:\Eigene Dateien\Krfa\.
Hast du dafür noch eine Lösung parat?
Danke
Gruss Thomas
Bild

Betrifft: AW: Nur Pfad ohne Dateiname
von: Nepumuk
Geschrieben am: 06.04.2005 06:44:22
Morgen Thomas,
eine Möglichkeit:


Option Explicit
Public Sub test()
    Debug.Print fncShortPath("C:\Eigene Dateien\Krfa\HSK\")
End Sub
Private Function fncShortPath(strPath As StringAs String
    Dim varArray As Variant, intIndex As Integer
    If Right$(strPath, 1) = "\" Then strPath = Mid$(strPath, 1, Len(strPath) - 1)
    varArray = Split(strPath, "\")
    For intIndex = 0 To UBound(varArray) - 1
        fncShortPath = fncShortPath & varArray(intIndex) & "\"
    Next
End Function


Gruß
Nepumuk
Bild

Betrifft: AW: Nur Pfad ohne Dateiname
von: Thomas
Geschrieben am: 06.04.2005 06:50:06
Hallo Nepumk
Ist werde das gleich heute Abend testen.
Vielen Dank und einen schönen Tag!
Gruss
Thomas
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Nur Pfad ohne Dateiname"