[AccessD] CurrentProject.Path syntax?

William Hindman wdhindman at dejpolsystems.com
Thu Mar 18 18:31:05 CDT 2010


...another reference? ...damn straight I won't :)

William

--------------------------------------------------
From: "Max Wanadoo" <max.wanadoo at gmail.com>
Sent: Thursday, March 18, 2010 3:05 PM
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] CurrentProject.Path syntax?

>
> 21st Century.  William won't be using this...
>
>
> Dim RE As New RegExp
> Dim sPath As String
> sPath = CurrentProject.path
> RE.Pattern = "\\$"
> If Not RE.test(sPath) Then sPath = sPath & "\"
> Debug.Print sPath
> ' requires windows vbscript regular expressions 5.5 to be referenced.
>
>
> Max
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Michael Bahr
> Sent: Thursday, March 18, 2010 5:59 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] CurrentProject.Path syntax?
>
> 21st Century is using regular expressions!  }:p>
>
> Mike...
>
>>
>> But the sample below works a lot better and handles UNC :
>>
>>     str = "\\svr\c\"
>>     strL = Left(str, 2)
>>     strR = Replace(Mid(str, 3) & "\", "\\", "\")
>>     str = strL & strR
>>
>> Go on.  Be a Devil.  Move to the 21st Century!!
>>
>> Max
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan,
>> Lambert
>> Sent: Thursday, March 18, 2010 12:55 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] CurrentProject.Path syntax?
>>
>> Good point from Stuart. I think I'll stick with my little function.
>> :-)
>>
>> Lambert
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Wanadoo
>> Sent: Wednesday, March 17, 2010 5:46 PM
>> To: 'Access Developers discussion and problem solving'
>> Subject: Re: [AccessD] CurrentProject.Path syntax?
>>
>>
>> Bit more complicated.
>>
>>     str = "\\svr\c\"
>>     strL = Left(str, 2)
>>     strR = Replace(Mid(str, 3) & "\", "\\", "\")
>>     str = strL & strR
>>
>> Max
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
>> McLachlan
>> Sent: Wednesday, March 17, 2010 9:07 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] CurrentProject.Path syntax?
>>
>> And what happens when it is a UNC path?
>>
>> Str = "\\Server\Share\"
>>
>> :-(
>>
>> --
>> Stuart
>>
>> On 17 Mar 2010 at 15:49, Max Wanadoo wrote:
>>
>>> Str = str & "\"
>>> Str = replace(str,"\\","\")
>>>
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




More information about the AccessD mailing list