[AccessD] Detect the folder where the application resides

> What's with all the looking for a slash?
> 
> Function DBPath()
> DBPath=left(CurrentDB.Name,len(CurrentDB.Name)-Len(Dir(CurrentDB.Name)))
> End Function
> 

Drew,
many thanks for the code, it works in A97(I'll try on A2K and AXP also).
Have a nice day,
    Ervin