Return Creation Date

[bjurney]

I am trying to modify this bit of code to tell me the date the file was created on, I tried several diffrent things, but I cant seem to figure it out:

With Application.FileSearch
    .LookIn = "C:\My_Folder\"
    .Filename = Range("A1").Value
    If .Execute > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With

Hope someone can help!

 

[hiker95]

bjurney,

See:

By Leith Ross
FileItem.DateCreated
http://www.excelforum.com/excel-programming/645683-list-files-in-folder.html

 

[bjurney]

Great thanks! I was able to get an idea of what I needed to do although I kind of went my own way. Here is the code I used in case someone ever needs a similar thing

Sub find()
Dim i, oFSO, File_Name2
With Application.FileSearch
    .LookIn = "C:\My_Folder"
    .Filename = Range("A1").Value
 
    .MatchAllWordForms = False
    If .Execute > 0 Then
        For i = 1 To .FoundFiles.Count
            Set oFSO = CreateObject("Scripting.FileSystemObject")
            Set File_Name2 = oFSO.GetFile(.FoundFiles(i))
            MsgBox (Format((File_Name2.DateCreated), "mm/dd/yyyy"))
 
            Next i
    Else
        MsgBox "There were no files found."
    End If
End With
 
 
 
End Sub