[AccessD] Detect the folder where the application resides

On 21 Aug 2003 at 12:41, Brindza Ervin wrote:

> Stuart,
> many thanks for the quick help, but there is no function called InStrRev.
> Can you post it?
> Best regards,
>     Ervin
> 
You must be using A97. InstrRev was introduced in A2K.

For A97, you can roll your own:

Function InstrRev(Targetstring as String, Delimiter as String) as 
String
    Dim strTemp as String
    strTemp = TargetString 
    While Right$(StrTemp,1) <> Delimiter And Len(strTemp) >1
        strTemp = Left$(strTemp,Len(strTemp -1)
    Wend
    InstRev = StrTemp
End Function


 
-- 
Lexacorp Ltd
http://www.lexacorp.com.pg
Information Technology Consultancy, Software Development,System 
Support.