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 >