not sure what this is supposed to do
Code:
For intCount = intDBLength To 1 Step -1
If Mid(MyDB.Name, intCount, 1) = "" Then
Exit For
End If
Next
so far as I am aware, you cannot have a ZLS ("") as a character, so intcount is always going to end up equal to 1
So lets say mydb.name has a length of 20 characters
intDBLength = Len(MyDB.Name)
ergo intDBLength=20
you then calculate intCount - which will equal 1
you then calculate
intTitleLength = intDBLength - intCount
so intTitleLength=20-1=19
next
strDBPath = Left(MyDB.Name, Len(MyDB.Name) - intTitleLength)
which is Left(MyDB.Name,20-19) - i.e. the first character