How Do I Display A Full File Path And Creation Date?

[YuvalH]

Hi,
I'm new to access but I have some experience, I'm having trouble finding a way to display a full file path and creation date.
Thx for the help.

 

[June7]

Why are you having trouble? Is this not data in record? If not, where should data come from?

 

[Pat Hartman]

You need to capture that information when you import the file. After that it is too late. Also, embedding files in an ACE database won't work for long since blobs bloat the db substantially. It is better to capture the full path name and then use FollowHyperLink to open it if a user wants to view it.

 

[Ranman256]

paste the code below into a module:

Public Function UserPick1File(byval pvPath)
Dim strTable As String
Dim strFilePath As String
Dim sDialogMsg As String, sDecr As String, sExt As String
'const msoFileDialogFilePicker = 3
If IsMissing(pvPath) Then pvPath = "c:\"   ' getMyDocs()
'SetFileFilter pvFilter, sDecr, sExt, sDialogMsg
With Application.FileDialog(3)
.AllowMultiSelect = True
.Title = sDialogMsg ' "Locate a file to Import"
.ButtonName = sDialogMsg '"Import"
.Filters.Clear
'.Filters.Add sDecr, sExt
'.Filters.Add "Access Files", "*.accdb;*.mdb"
'.Filters.Add "Excel Files", "*.xlsx"
.Filters.Add "All Files", "*.*"
.InitialFileName = pvPath
    .InitialView = msoFileDialogViewList    'msoFileDialogViewThumbnail
        If .show = 0 Then
'There is a problem
Exit Function
        End If
    'Save the first file selected
UserPick1File = Trim(.SelectedItems(1))
End With
End Function

Public Function getModifiedDate(ByVal pvFile)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(pvFile)
getModifiedDate = f.DateLastModified

Set f = Nothing
Set fs = Nothing
End Function

Public Function getCreatedDate(ByVal pvFile)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(pvFile)
getCreatedDate = f.DateCreated

Set f = Nothing
Set fs = Nothing
End Function

then user can click a button on the form to select the file using:
FORM CODE:

sub btnPickFile_Click()
sStartFolder = "c:\temp\"
vFile = UserPick1File(sStartFolder)
if vFile <> "" then
   txtFile = vFile
   txtCreateDate = getCreatedDate(vFile)
endif
end sub

 

[theDBguy]

Hi @YuvalH. Welcome to AWF!

 

[CJ_London]

Be aware that if the file has been copied from somewhere - the created date is actually the date it was copied. Or you use the modified date which is probably pretty safe in the context of pictures taken with a digital camera and not subsequently modified

Otherwise somehow I managed to modify the above 16 years before creating it!

It may be you need the Date Taken value which I don't believe you can get from filesystem object. You might want to take a look at this link

Obtaining extended file properties (attributes) using VBA

Recently, this thread 'Windows 10 Retrieving Extended File Properties' raised issues about using the GetDetailsOf method to retrieve extended file properties (attributes). GetDetailsOf is a member of the VBA library 'Microsoft Shell Controls and Automation' based on Shell32.dll. For anyone...

www.access-programmers.co.uk

 

[Gasman]

Be aware that if the file has been copied from somewhere - the created date is actually the date it was copied.

View attachment 97705
Otherwise somehow I managed to modify the above 16 years before creating it!

It may be you need the Date Taken value which I don't believe you can get from filesystem object. You might want to take a look at this link

Obtaining extended file properties (attributes) using VBA

Recently, this thread 'Windows 10 Retrieving Extended File Properties' raised issues about using the GetDetailsOf method to retrieve extended file properties (attributes). GetDetailsOf is a member of the VBA library 'Microsoft Shell Controls and Automation' based on Shell32.dll. For anyone...

www.access-programmers.co.uk

I have always wondered if they were going to ever fix that?

 

[CJ_London]

thing is it is about the file - and the file was created when it was copied.

the first file I copied - so new copy created
The second file is the same file but moved - so it wasn't created

changing the file name doesn't constitute a change