[AccessD] Compact by code

Hi Arthur,

This is what we use in Access XP:

Public Function GetFilePath(lstrFileName) As String
'Returns the directory of the passed file name.
'Expects the full path and file name as input.

   GetFilePath = Left(lstrFileName, InStrRev(lstrFileName, "\"))

End Function

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: Saturday, January 14, 2006 7:16 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Compact by code


Where is the code for GetFilePath()? I have something vaguely similar but I
figured rather than experiment with making mine and yours compatible, I
would simply ask for it.
Arthur
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Monday, November 21, 2005 12:54 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Compact by code

Sorry, GetFilePath() returns the path of a given file name string.
Bobby

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com