Letztes Verzeichnis im Path ermitteln



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Letztes Verzeichnis im Path ermitteln
von: Hans-Jörg
Geschrieben am: 08.07.2002 - 11:43:56

Hallo,
ich lese und Prüfe Verzeichnisse.
Wie kann ich den Name des letzten Verzeichnisses in eine Zelle schreiben.
Beispiel:
c:\PeterPan\Spiel1\Titel\Aktion
Aktion soll in Zelle A1 geschrieben werden.
Es sind unterschiedliche Verzeichnisse Orientierung ist eigentlich nur der "\"

Vielen Dank
Hans-Jörg

nach oben   nach unten

Re: Letztes Verzeichnis im Path ermitteln
von: Udo
Geschrieben am: 08.07.2002 - 13:22:35

Hallo,
versuchs mal so:

Function letztesVerzeichnis(Verzeichnis As String)
Dim Z As Integer, letztePos As Integer
Z = 0
letztePos = 0
beginn_Schleife:
Z = InStr(Z + 1, Verzeichnis, "\")
If Z = 0 Then GoTo Ergebnis
lePos = Z
Z = Z + 1
GoTo beginn_Schleife
Ergebnis:
letztesVerzeichnis = Right(Verzeichnis, Len(Verzeichnis) - letztePos)
End Function

In deinen Code brauchst du nur
Range("A1")=LetztesVerzeichnis(aktVerzeichnis)
einzusetzen, wobei aktVerzeichnis dein aktuell gelesener Verzeichisname ist.

Ich hoffe, das hilft.

Gruss Udo

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Letztes Verzeichnis im Path ermitteln"