vil gerne have .mdb fjernet i data04.mdb

streng2=left(streng1,len(streng1)-4)

hvor streng1 = "data04.mdb"

kan du så også fortælle hvordan man fjerner hele filnavnet altså alt fra mdb og frem til første \
sådan så

V:\ligningstatestik\Data02.mdb skal blive til V:\ligningstatestik\


jeg bruger denne kode til at frembringe stien


----------------
Dim db As DAO.Database
    Dim s As String
    Dim Pos As Integer, i As Integer, pos2 As Integer
   
   
    Set db = CurrentDb
       
    For i = 0 To db.TableDefs.Count - 1
        If Len(db.TableDefs(i).Connect) > 0 Then
            s = db.TableDefs(i).Connect
            Exit For
           
        End If
    Next i
   
    pos2 = Len(s)
    Pos = Len(s)
    Do Until Mid(s, Pos, 1) = "\"
        Pos = Pos - 1
    Loop
   
    Pos = pos2 + Pos
 
   
    s = Right((s), Pos)
   
    s = Mid(s, InStr(s, "=") + 1)
MsgBox s
   
        getbackendsti = Left(s, Len(s) - 4)

    ----------------

Du har den faktisk næsten selv

    Pos = Len(s)
    Do Until Mid(s, Pos, 1) = "\"
        Pos = Pos - 1
    Loop

Mit bidrag efter at du selv har fundet den første "\" fra højre:
s=left(s,pos)

takker endnu en gang