back end path

[Mclaren]

I have the following code which works and gives me the path to my back end, iy includes the name of the MDB file. I need the string returned to omit the MDB file. ie:

C:\Users\Kevin\Desktop\CSSimplyDB\Data\backend.mdb

should read:

C:\Users\Kevin\Desktop\CSSimplyDB\Data

Public Function GetDBPath() As String
    Dim strFullPath As String
    strFullPath = Mid(DBEngine.Workspaces(0).Databases(0).TableDefs("tbl_Contacts").Connect, 11)

    For I = Len(strFullPath) To 1 Step -1
        If Mid(strFullPath, I, 1) = "\" Then
            GetDBPath = Left(strFullPath, I)
            Exit For
        End If
    Next
End Function

Can anyone please explain to me what the above code does, so i can understand how it works.

[jgelpi16]

I recommend dumping this code into a module and stepping through it. This will help you understand what the code is doing. Just use "F8" to step through the code. What you can do is simply use the replace function on strFullPath....

Replace(strFullPath, ".mdb", "")

I have not stepped through this code, but what it looks like it is doing is removing all the "\" from the string in strFullPath. If your desired outcome is simply to have the path less the ".mdb" extension I would suggest the following...

Public Function GetDBPath() As String
    Dim strFullPath As String
    strFullPath = Mid(DBEngine.Workspaces(0).Databases(0).TableDefs("tbl_Contacts").Connect, 11)
 
GetDBPath = Replace(strFullPath, ".mdb", "")
End Function