<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face="Courier New" color=#0000ff size=2><SPAN
class=888142409-21082003><code></SPAN></FONT></DIV>
<DIV><FONT><FONT color=#0000ff><FONT size=2><FONT face="Courier New">Dim
dbCurrent As <SPAN class=888142409-21082003>DAO.</SPAN>Database<BR>Dim
strDbName As String<BR> Set dbCurrent =
CurrentDb<BR> strDbName = dbCurrent.Name<BR>
Do While Right$(strDbName, 1) <> "\"<BR>
strDbName = Left$(strDbName, Len(strDbName) - 1)<BR>
Loop<BR><SPAN
class=888142409-21082003></code></SPAN></FONT></FONT></FONT></FONT></DIV>
<DIV><FONT><FONT color=#0000ff><FONT size=2><FONT face="Courier New"><SPAN
class=888142409-21082003></SPAN></FONT></FONT></FONT></FONT> </DIV>
<DIV><FONT><FONT color=#0000ff><FONT size=2><FONT face="Courier New"><SPAN
class=888142409-21082003>Stephen Bond</SPAN></FONT></FONT></FONT></DIV></FONT>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> Brindza Ervin
[mailto:viner@eunet.yu]<BR><B>Sent:</B> Thursday, 21 August 2003 8:29
p.m.<BR><B>To:</B> Access Developers discussion and problem
solving<BR><B>Subject:</B> [AccessD] Detect the folder where the application
resides<BR><BR></FONT></DIV>
<DIV><FONT face=Arial size=2>Hi,</FONT></DIV>
<DIV><FONT face=Arial size=2>my application can reside in any folder on
any drive, but I want that information. Can someone help me to find the
application location?</FONT></DIV>
<DIV><FONT face=Arial size=2>TIA,</FONT></DIV>
<DIV><FONT face=Arial size=2>
Ervin</FONT></DIV></BLOCKQUOTE></BODY></HTML>