Læs en string fra højre mod venstre.

Prøv instrrev ;)

Jeg bruger vb5.0

Jeg kender ikke nogen funktioner der kan finde det fra højre mod venstre, men her kommer der en omvej.

Sub test()
        Dim txtStreng As String, leng As Integer, i As Integer
        Dim place As Integer
        txtStreng = "c:\programmer\test1\test2\file_1.txt"
        leng = Len(txtStreng)
        i = leng
        Do While i >= 1
            If Right(Left(txtStreng, i), 1) = "\" Then
                place = i
                Exit Do
            End If
            i = i - 1
        Loop
        MsgBox Right(txtStreng, Len(txtStreng) - place)
End Sub

Dette burde virke i VB5.0:

s="c:\programmer\test1\test2\file_1.txt"
p=instr(s,"\")
while instr(p+1,s,"\")>0
  p=instr(p+1,s,"\")
wend
s=mid(s,p+1)
p=instr(s,".")
s=left(s,p-1)
'Nu er s strengen "file_1"

Tak Tak...

75 point til nmh
25 point til kedde65

Håber det er ok :-))

Takker for point. :o)