[AccessD] CurrentDB in ADP

In an ADP's debug window:

? currentproject.FullName
F:\Access\2020.adp

Parse it as you do already and you're there.

hth,
Arthur

----- Original Message -----
From: "David Emerson" <davide at dalyn.co.nz>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 29, 2003 6:47 PM
Subject: [AccessD] CurrentDB in ADP


> I have some 97 code which returns the folder the current database is in -
>
>      Dim dbs As DAO.Database, strLoop As Integer
>
>      Set dbs = CurrentDb()
>      For strLoop = Len(dbs.Name) - 1 To 1 Step -1
>          If Mid$(dbs.Name, strLoop, 1) = "\" Then
>              basGetCurrentFolder = Left$(dbs.Name, strLoop - 1)
>              Exit For
>          End If
>      Next
>
> I am upgrading it for an XP ADP.  When it is run the Currentdb call
returns
> nothing.
>
> I have made sure that the DAO 3.6 Object library is checked in references
> (as per help).  What is wrong, or is there an easier way to get the
current
> folder?  I tried CurDir but this is not what I want.
>
>
> Regards
>
> David Emerson
> DALYN Software Ltd
> 25b Cunliffe St, Johnsonville
> Wellington, New Zealand
> Ph/Fax (877) 456-1205
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com