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"