Parsing mdb filename from linked table connect property

[Mike MacSween]

From tbldef.connect, e.g. ;DATABASE = c:\mike\development\link.mdb

I want to extract link.mdb as a string.

This is the best I've come up with:

Set db = CurrentDb()
Set tbl = db.TableDefs(0)
strLinkPath = tbl.Connect
intPos = Len(strLinkPath)
Do While Mid$(strLinkPath, intPos, 1) <> "\"
intPos = intPos - 1
Loop
strFEFileName = Mid$(strLinkPath, intPos + 1)

Is there a better way. Like InStr starting from the right?

TIA, Mike MacSween

[Allen Browne]

InstrRev() is useful from A2000 onwards.

Alternatively, you can use the fact that Dir() loses the path:
Dir(Mid(dbEngine(0)(0).TableDefs("MyTable).Connect , 11))

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Mike MacSween" <mi******************@btinternet.com> wrote in message
news:3f***********************@pubnews.gradwell.ne t...

From tbldef.connect, e.g. ;DATABASE = c:\mike\development\link.mdb

I want to extract link.mdb as a string.

This is the best I've come up with:

Set db = CurrentDb()
Set tbl = db.TableDefs(0)
strLinkPath = tbl.Connect
intPos = Len(strLinkPath)
Do While Mid$(strLinkPath, intPos, 1) <> "\"
intPos = intPos - 1
Loop
strFEFileName = Mid$(strLinkPath, intPos + 1)

Is there a better way. Like InStr starting from the right?

TIA, Mike MacSween

[Mike MacSween]

Thanks Allen

"Allen Browne" <al*********@SeeSig.invalid> wrote in message
news:jx********************@news-server.bigpond.net.au...

InstrRev() is useful from A2000 onwards.

Alternatively, you can use the fact that Dir() loses the path:
Dir(Mid(dbEngine(0)(0).TableDefs("MyTable).Connect , 11))

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Mike MacSween" <mi******************@btinternet.com> wrote in message
news:3f***********************@pubnews.gradwell.ne t...

From tbldef.connect, e.g. ;DATABASE = c:\mike\development\link.mdb

I want to extract link.mdb as a string.

This is the best I've come up with:

Set db = CurrentDb()
Set tbl = db.TableDefs(0)
strLinkPath = tbl.Connect
intPos = Len(strLinkPath)
Do While Mid$(strLinkPath, intPos, 1) <> "\"
intPos = intPos - 1
Loop
strFEFileName = Mid$(strLinkPath, intPos + 1)

Is there a better way. Like InStr starting from the right?

TIA, Mike MacSween