hur gör jag för att i en sökväg som inte alltid är lika backa tillbaka till det närmaste / eller \ tecken i sökvägen
tex ska "[enhet]:\mapp\mapp\" bli "[enhet]:\mapp"
så det blir då 2 backslash i detta fallet

<code>
Dim X As String
X = "d:\mapp\mapp\"
If Right(X, 1) = "\" Then X = Left(X, Len(X) -1)
X = Left(X, InStrRev(X, "\") -1)
Msgbox X
</code>


Thomas

Ett annat sätt att göra samma sak
<code>
Option Explicit
Private Sub Command1_Click()
Dim OldPath() As String, i As Long
Dim tmpPath As String
tmpPath = "d:\mapp\mapp\"
OldPath = Split(tmpPath, "\")
tmpPath = ""
For i = 0 To UBound(OldPath) - 2
tmpPath = tmpPath & OldPath(i) & "\"
Next
MsgBox tmpPath
End Sub
</code>

Om man vill bli av med if-satsen i Thomas exempel kan man göra såhär:

Dim X As String
X = "d:\mapp\mapp\"
X = Left(X, InStrRev(X, "\", Len(X) - 1) - 1)
MsgBox X