Ordnername ohne Pfad

Bild

Betrifft: Ordnername ohne Pfad
von: Jorainbo
Geschrieben am: 02.12.2003 21:23:23


hallo Leute,

hat jemand eine Ahnung wie ich NUR den Namen des Ordners, in dem die aktuelle Datei gespeichert ist, auslesen kann ? ActiveWorkbook.Path gibt ja den vollständigen Pfad zurück, ich brauche aber den Ordner alleine.

Danke schonmal für alle Antworten
Tom

Bild


Betrifft: AW: Ordnername ohne Pfad
von: Matthias G
Geschrieben am: 02.12.2003 21:29:59

Hallo Jorainbo,
folgende selbstgestrickte Funktion tut's:

Function Ordner(p As String) As String
Dim i, j As Long
j = 1
Do
    i = InStr(j, p, "\")
    If i > 0 Then j = i + 1
Loop Until i = 0
Ordner = Mid(p, j)
End Function

Gruß,
Matthias


Bild


Betrifft: AW: Ordnername ohne Pfad
von: Jorainbo
Geschrieben am: 02.12.2003 22:27:01


hey Matthias, das ist ja der Hammer :-)

Danke, auch den anderen und wohlige Nachtruhe
Tom


Bild


Betrifft: AW: Ordnername ohne Pfad
von: FP
Geschrieben am: 02.12.2003 22:42:13

Hallo Tom,

ich weiss zwar nicht wozu man nur den Ordner ( ohne Pfad ??? ) braucht, aber bitte:


Function WBOrdner()
  Dim intPL   As Integer
  With ActiveWorkbook
    intPL = Len(.Path)
    WBOrdner = WorksheetFunction.Substitute(.Path, "\", "/", _
      intPL - Len(WorksheetFunction.Substitute(.Path, "\", "")))
    WBOrdner = Right(WBOrdner, intPL - InStr(WBOrdner, "/"))
  End With
End Function


Servus aus dem Salzkammergut
Franz


Bild


Betrifft: AW: Ordnername ohne Pfad
von: GerdW
Geschrieben am: 02.12.2003 21:30:54

Um den Aufwand zu minimieren ist die Excelversion schon wichtig.

Gerd


Bild


Betrifft: AW: Ordnername ohne Pfad - CurDir
von: FP
Geschrieben am: 02.12.2003 21:49:12

Hallo Tom,

CurDir
gibt den aktuellen Pfad zurück

ThisWorkbook.Path
gibt den Pfad der Mappe ohne den Namen der Mappe zurück

ActiveWorkbook.Path
gibt den Pfad der aktiven Mappe ohne den Namen der Mappe zurück

ActiveWorkbook.FullName
gibt den Pfad und den Namen der aktiven Mappe zurück

Servus aus dem Salzkammergut
Franz


Bild


Betrifft: AW: Ordnername ohne Pfad
von: Sigi
Geschrieben am: 02.12.2003 22:26:49

Hallo Tom,

noch'ne Funktion ...

Function OrdnerName() As String
OrdnerName = Right(ActiveWorkbook.Path, Len(ActiveWorkbook.Path) - InStrRev(ActiveWorkbook.Path, "\", -1))
End Function

Gruß
Sigi


Bild


Betrifft: AW: Ordnername ohne Pfad
von: Jorainbo
Geschrieben am: 02.12.2003 22:30:04


hi Sigi, noch'n Hammer, funktioniert genauso :-)

Dank und Gruß
Tom


Bild

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