Office: (Office 2013) Pfad (string) kürzen

Mandy09 · 19. August 2020

Hallo,

ich möchte einen Pfad kürzen.

habe zB:
Code:

"c:/Verzeichnis1/Verzeichnis2/Test1/Test2/backend.accdb"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Egal wie lange der Pfad ist, es soll immer der Dateiname + das letzte Verzeichnis angeschnitten werden

also am Ende soll hier nur noch
Code:

"c:/Verzeichnis1/Verzeichnis2/Test1" stehn
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Prinzip ist das Ende immer das vorletzte "/" Zeichen.

Wie kann man das machen ?

Danke Mandy

:)

Debus · 20. August 2020

Hey,

das sollte hier sollte helfen

Holger

TSchenke · 20. August 2020

Hallo,
dies ist jetzt etwas länglich, funktioniert aber (getestet!). Kopiere diese String-Funktionen in ein Modul (sind vielleicht auch für andere Verwendungen nützlich):
Code:

Public Function InStrX(sString As String, sZeichen As String, iNr As Integer) As Integer

Dim p As Integer, x As Integer, iLastPos As Integer

Do
p = InStr(p + 1, sString, sZeichen)
If p > 0 And iNr > x Then
x = x + 1
iLastPos = p
Else
Exit Do
End If
Loop

If iNr > x Then
InStrX = 0
Else
InStrX = iLastPos
End If

Exit Function

End Function
Public Function StrCount(ByVal sText As String, _
ByVal sFind As String, _
Optional ByVal CompareMethod As VbCompareMethod = vbTextCompare) As Integer

' Ist ein Such-String angegeben?
If Len(sFind) = 0 Then StrCount = -1: Exit Function

Dim nCount As Long
Dim nPos As Long

' Solange nach gesuchtem Zeichen/Zeichenfolge
' suchen, bis keine Fundstelle mehr vorhanden
Do
nPos = InStr(nPos + 1, sText, sFind, CompareMethod)
If nPos > 0 Then nCount = nCount + 1
Loop Until nPos = 0

StrCount = nCount
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Deine Pfade kannst Du dann wie folgt kürzen:
Code:

Left("Pfad", (InStrX("Pfad", "/", (StrCount("Pfad", "/")-1)))-1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Schrägstriche musst Du bei realen Pfaden natürlich gegen Backslashe austauschen. Es wird zuerst die Anzahl der Zeichen (hier "/") gezählt, dann die Position des n-1-ten Zeichens ermittelt und dann der Text links dieser Position ausgeschnitten.
Gruß Thomas

drambeldier · 20. August 2020

Moin,

zB so:
Code:

Sub ttt()

Dim PfadmitDSN As String

PfadmitDSN = "G:\Daten\Vermietung\Luisenweg\Nebenkosten_2013.xls"
Debug.Print PfadohneDSN(PfadmitDSN, "\")
End Sub

Function PfadohneDSN(Pfad As String, Delimiter As String) As String

Dim Splits() As String
Dim i As Long
Dim Ziel As String

Splits = Split(Pfad, "")
For i = 0 To UBound(Splits) - 1
Ziel = Ziel & Splits(i) & Delimiter
Next i
PfadohneDSN = Ziel
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

knobbi38 · 21. August 2020

Hallo Mandy,

einfach eine keine Funktion ohne aufwendige Arrays usw. in einem Modul:
Code:

Public Function ShortenPath(ByVal Path As String) As String
Dim pos As Long

Const cDELIMITER As String = "\"

pos = InStrRev(Path, cDELIMITER)
pos = InStrRev(Path, cDELIMITER, pos - 1)
ShortenPath = Left(Path, pos - 1)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ulrich

Mandy09 · 22. August 2020

Hallo an alle Helfer,

vielen Dank für die umfangreiche Hilfestellung.
Wünsch Euch was.

Mandy

Office: (Office 2013) Pfad (string) kürzen

Pfad (string) kürzen

Pfad (string) kürzen

Pfad (string) kürzen

Pfad (string) kürzen - Similar Threads - Pfad string kürzen

Dynamischer Pfad

Den Pfad verändern

Fehler beim Zugriff auf Pfad/Datei

Pfad standardisieren

Komplexes Makro ohne Ahnung :-/

Per Makro bestimmten Bereich per PDF unter bestimmten Pfad speichern.

Variable in Pfad zu externem Inhalt (Sharepoint)