[AccessD] Detect the folder where the application resides

<code>
Dim dbCurrent As DAO.Database
Dim strDbName As String
    Set dbCurrent = CurrentDb
    strDbName = dbCurrent.Name
    Do While Right$(strDbName, 1) <> "\"
      strDbName = Left$(strDbName, Len(strDbName) - 1)
    Loop
</code>
 
Stephen Bond

-----Original Message-----
From: Brindza Ervin [mailto:viner at eunet.yu]
Sent: Thursday, 21 August 2003 8:29 p.m.
To: Access Developers discussion and problem solving
Subject: [AccessD] Detect the folder where the application resides


Hi,
my application can reside in any folder on any drive, but I want that information. Can someone help me to find the application location?
TIA,
    Ervin

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030821/1c2f5c0d/attachment-0001.html>