[AccessD] Detect the folder where the application resides

On 21 Aug 2003 at 10:28, Brindza Ervin wrote:

> 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
> 


Static Function ApplDir() As String
   Dim strApplDir As String
   Dim strTemp As String
   If strApplDir = "" Then
    strTemp = DBEngine(0)(0).Name
    strApplDir = Left$(strTemp, InStrRev(strTemp, "\"))
   End If
   ApplDir = strApplDir
End Function 
-- 
Lexacorp Ltd
http://www.lexacorp.com.pg
Information Technology Consultancy, Software Development,System Support.