VBA Code for Date Created and Date Modified

[OilEconomist]

Thanks in advance and feedback will be given for any suggestions.

I've done an exhaustive search and anything I find and try to incorporate is giving issues. How do I add the date created and date modified to this file. It currently get the file name and places it in column A, and I would like the date created and date last modified to be in columns B and C respectively.

These lines I was trying to code to get that:

'Sheets("List").Cells(i, 2).Value = Date created should be coded in this line
'Sheets("List").Cells(i, 2).Value = Date modified should be coded in this line

Sub GetFileNames()


'Dimensioning
    Dim Folder As String
    Dim ObjFSO As Object
    Dim ObjFolder As Object
    Dim ObjFile As Object
    Dim i As Integer


    
    If Right(Sheets("List").Cells(3, 2).Value, 1) <> "\" Then
    
        Sheets("List").Cells(3, 2).Value = Sheets("List").Cells(3, 2).Value & "\"
    
        End If
        
    
    DirFolderRename = Sheets("List").Cells(3, 2).Value


    i = 5


    Set ObjFSO = CreateObject("Scripting.FileSystemObject")
    Set ObjFolder = ObjFSO.GetFolder(DirFolderRename)
    For Each ObjFile In ObjFolder.Files
        
        Sheets("List").Cells(i, 1).Value = ObjFile.Name
        'Sheets("List").Cells(i, 2).Value = Date created should be coded in this line
        'Sheets("List").Cells(i, 2).Value = Date modified should be coded in this line

    i = i + 1

    Next ObjFile

End Sub

 

[Joe4]

See here: https://www.mrexcel.com/forum/excel...l-file-properties-date-created-using-vba.html for details on how to pull those particular properties.

Also note another issue with your commented out code:

'Sheets("List").Cells(i, 2).Value = Date created should be coded in this line
'Sheets("List").Cells(i, 2).Value = Date modified should be coded in this line

They would be overwriting each (both writing to column B). To put in columnss B, and C respectively, it should be:

'Sheets("List").Cells(i, 2).Value = Date created should be coded in this line
'Sheets("List").Cells(i, [COLOR=#ff0000][B]3[/B][/COLOR]).Value = Date modified should be coded in this line

 

[OilEconomist]

Thanks Joe4 for your response and correction to the code I did have written as that was an oversite by me.

I did see the exact post for the link you left, but when I modified my code it did not work.

I tried the following and I got an error:

Can you give me an indication what I have coded incorrectly?

Sheets("List").Cells(i, 2).Value = ObjFileName.Datelastmodified
Sheets("List").Cells(i, 3).Value = [COLOR=#333333]ObjFileName.DateCreated[/COLOR]

 

[OilEconomist]

This is the code which I got to work.

        Sheets("List").Cells(i, 2).Value = ObjFile.DateCreated
        Sheets("List").Cells(i, 3).Value = ObjFile.DateLastModified

The code in it's entirety is as follows.

Sub GetFileNames()


'Dimensioning
    Dim Folder As String
    Dim ObjFSO As Object
    Dim ObjFolder As Object
    Dim ObjFile As Object
    Dim i As Integer
    
'Obtaining the directory of where the files of interest reside
    If Right(Sheets("List").Cells(3, 2).Value, 1) <> "\" Then
    
        Sheets("List").Cells(3, 2).Value = Sheets("List").Cells(3, 2).Value & "\"
    
   End If
        
    
    DirFolderRename = Sheets("List").Cells(3, 2).Value


    i = 5


    Set ObjFSO = CreateObject("Scripting.FileSystemObject")
    Set ObjFolder = ObjFSO.GetFolder(DirFolderRename)
    
    For Each ObjFile In ObjFolder.Files
        
        Sheets("List").Cells(i, 1).Value = ObjFile.Name
        Sheets("List").Cells(i, 2).Value = ObjFile.DateCreated
        Sheets("List").Cells(i, 3).Value = ObjFile.DateLastModified
      
        
    i = i + 1
    
    
    
    Next ObjFile




End Sub

 

[Joe4]

Right, it needs to match the name of the object variable you created for it.