varStreng - varStreng

I = InStr(varStr1, varStr2)
If Not I = 0 Then
  varStr3 = Left(varStr1, I - 1) + Right(varStr1, Len(varStr1) - ( I + Len(varStr2) + 1 ))
EndIf

Ups; det skal selvfølgelig være:
I = InStr(varStr1, varStr2)
If Not I = 0 Then
  varStr3 = Left(varStr1, I - 1) + Right(varStr1, Len(varStr1) - ( I + Len(varStr2) - 1 ))
EndIf

Tak, jeg prøver lige om jeg kan får det til at virke

InStr finder ud af hvor i varStr1 variablen varStr2 findes. Hvis varStr2 findes i varStr1 ( I ikke lig 0 ), så lægger vi de første I karakterer fra varStr1 over i varStr3, og derefter de sidste karakterer fra varStr1, som er bestemt ved længden af varStr1 - (placeringen af varStr2 i varStr1) + 1.

Det virker fint, må jeg komme med et tillægs spørgsmål?
Anyway here goes:>
Hvad med at trække alt ud af varStr1 = "E:\test\tempat23.txt" indtil sidste \ så man har varStr1 = "E:\test\" tilbage?
varStr1 er selvfølgelig ikke altid = "E:\test\tempat23.txt" kan være varStr1 = "F:\tempest\gttempat23.txt" eller noget helt andet
:>Gizom

Det kunne du jo f.eks. gøre sådan her :

        For I = 1 To Len(varStr1)
            varStr2 = Right(varStr1, I)
            If vb.Left(varStr2, 1) = "\" Then
                varStr2 = Left(varStr1, Len(varStr1) - I + 1)
                Exit For
            End If
        Next
        MsgBox(varStr2)

Takke og bukker :> Gizom