Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 16:36:49
Excel Arbeitszeit berechnung
07.05.2024 16:27:17
Definition und Nutzung von globalen Variablen
07.05.2024 14:51:38
Endlos-Journal
07.05.2024 13:27:17
Datum nach Auswahl prüfen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1924to1928
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner aus Pfad-String bekommen

Ordner aus Pfad-String bekommen
29.03.2023 09:21:42
Florian

Hi,

gibt es eine enfache Methode, aus einem String Pfad+Dateiname den letzten Ordner zu bekommen?

Habe mir Folgendes gebastelt:
Pfad = "c:\Richtung\Etage\Abteilung\Liste.xls"
Debug.Print "Order:", Split(Pfad, "\")(Len(Pfad) - Len(Replace(Pfad, "\", "")) - 1)
'liefert "Abteilung"

Das funktioniert, sieht aber etwas kompliziert aus. Vielleicht gibt es einen Trick?

LG, Florian

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner aus Pfad-String bekommen
29.03.2023 09:39:02
volti
Hallo Florian,

zwei Möglichkeiten..

Code:


ub Test1()
 Dim sArr() As String
  
  sArr = Split("c:\Richtung\Etage\Abteilung\Liste.xls", "\")
  Debug.Print "Order:", sArr(UBound(sArr) - 1)
End Sub

Sub Test2()
 Dim sPfad As String
  
  sPfad = "c:\Richtung\Etage\Abteilung\Liste.xls"
  sPfad = Left$(sPfad, InStrRev(sPfad, "\") - 1)
  Debug.Print "Order:", Mid$(sPfad, InStrRev(sPfad, "\") + 1)
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz



Anzeige
AW: Ordner aus Pfad-String bekommen
29.03.2023 16:09:42
Florian
Danke, Karl-Heinz. Funktioniert. LG, Florian.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige