Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1192to1196
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
Inhaltsverzeichnis

Übergeordneter Ordner aus Pfad auslesen

Übergeordneter Ordner aus Pfad auslesen
Robert
Servus Excel-Freunde,
ich habe eben folgendes Problem:
Per VBA lese ich den Pfad des aktiven Workbook aus.
Als Ergebnis erhalte ich z.B. "D:\Tabellen\Programmierung\VBA"
Jetzt möchte ich wissen, wie ich nur aus dieser Pfadangabe nur das Übergeordnete Verzeichnis angezeigt bekomme.
In diesem Fall also "VBA"
Das Problem ist, das der komplette Pfad variert. Wäre der Pfad immer gleich, würde ich einfach die festen Pfadangaben löschen.
Weiß jemand Rat?
Viele Grüße
Robert

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Übergeordneter Ordner aus Pfad auslesen
15.01.2011 18:27:35
Josef

Hallo Robert,
das geht z. B. so.

Sub folder()
  Dim strPath As String, strLastFolder As String
  
  strPath = "D:\Tabellen\Programmierung\VBA"
  
  strPath = IIf(Right(strPath, 1) = "\", Left(strPath, Len(strPath) - 1), strPath)
  
  strLastFolder = Mid(strPath, InStrRev(strPath, "\") + 1)
  
  MsgBox strLastFolder
End Sub

Gruß Sepp

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige