Application.CurrentProject.Path question on storing

[akirekab]

Can this be saved somehow in a field in the database along with some other address criteria, so I can always be looking at the current location.
like this?

Application.CurrentProject.Path\year\month\nbr 9.jpg

and when pulled out, you get

C:\Folder1\year\month\nbr 9.jpg

with C:\Folder1 being the current path


Thank you for your help
Ken

[NeoPa]

I'm confused by this question.
The database path is relative to where the database was opened from so storing this value as data would seem to make no sense at all. Clearly there are ways of storing any data you want to, but this seems a strange request.
Can you explain what you want exactly and why?

[akirekab]

I'm confused by this question.
The database path is relative to where the database was opened from so storing this value as data would seem to make no sense at all. Clearly there are ways of storing any data you want to, but this seems a strange request.
Can you explain what you want exactly and why?

I am wanting to display image on form, the image file location can change, but will always be relative to the database location. I was storing the location, ie
c:\xxxx etc, but when file was moved to new folder, of course the image couldnt be found. So I am trying to establish a way (remember I am new at this part) to create the new address, by adding the relative location of db to file name.
thank You

[NeoPa]

OK.
I was surprised as I saw you were almost there already.
Indeed, you want to use Application.CurrentProject.Path to find the file if it is relative to the database location.
Something like :

strImage = Application.CurrentProject.Path & "\year\month\nbr 9.jpg"

[akirekab]

OK.
I was surprised as I saw you were almost there already.
Indeed, you want to use Application.CurrentProject.Path to find the file if it is relative to the database location.
Something like :

strImage = Application.CurrentProject.Path & "\year\month\nbr 9.jpg"

Thanks appreciate it

I am using "Private FSO as Scripting.FileSystemObject" to see if this file exists.
1. What reference in Access 2002 is necessary for this
2. I have seen many syntax, for the exists part, but mine is not working
can you help me there or is this overstepping my bounds. In other words should I start a new string

[NeoPa]

I think a new thread is required here, but for determining if a file exists I use the function :

'Exist returns true if strFile exists.
'22/05/2003 Rewritten with better code.
'20/05/2005 Added finding of R/O, System & Hidden files
Public Function Exist(strFile As String, _
                      Optional intAttrib As Integer = &H7) As Boolean
    Exist = (Dir(PathName:=strFile, Attributes:=intAttrib) <> "")
End Function