CreatedDate - - Computer Learning Zone


	Back to ABCD Core Part 5 Comments List

Upload Images Link Email

CreatedDate

Eduardo Benaim

2 years ago

How do I read The Actual CreatedDate form a File in a Directoy?

IN ABCD Database there is this Statement

DoCmd.RunSQL "INSERT INTO DocumentT (EntityID, Filename, Description) " & _
"VALUES (" & EntityID & ", """ & NewFilename & """,""" & NewFilename & """)"

I modifiead it to Include CD which is the CreatedDate

DoCmd.RunSQL "INSERT INTO DocumentT (EntityID, Filename, Description, CreatedDate) " & _
"VALUES (" & EntityID & ", """ & NewFilename & """,""" & NewFilename & """,""" & CD & """)"

right now CD is the default value in the table now()

I need it to be the Actual CreatedDate in the Explorer.
How do I read the Attribute to Make CD the Actual File Creation Date?

	Eduardo Benaim OP 2 years ago
Set FD = Application.FileDialog(msoFileDialogFilePicker) With FD .InitialFileName = ABCDFolder .AllowMultiSelect = IIf(DocType = "BulkAdd", True, False) .Title = "Select a File" .Filters.Clear .CreateDate

	Eduardo Benaim OP 2 years ago
Found The answer: FileDateTime ( file_path )

Kevin Robertson

2 years ago

When I tested the FileDateTime function it returned the Last Modified Date NOT the Created Date.

Here's a simple function for getting the Created Date:

Function ShowFileInfo(filespec) As Date



    Dim fso As Object, f As Object, D As Date

    

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set f = fso.GetFile(filespec)

    D = f.DateCreated

    ShowFileInfo = D

    

    Set fso = Nothing

    Set f = Nothing

    

End Function

Private Sub GetCreatedDate_Click()



    Dim createdDate As Date

    createdDate = ShowFileInfo("Your File Path")

        

    MsgBox "Created: " & createdDate



End Sub

	Eduardo Benaim OP 2 years ago
You are right. Thank you Kevin

This thread is now CLOSED. If you wish to comment, start a NEW discussion in ABCD Core Part 5.