VBA retrieve text file creation date

[Fat Cat]

Is there a simple way to retrieve the date a text file was created ?

I'm using the following code to read the contents of the file, but need to know the date it was created.

many thanks

Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile(fName)                            'the file we want to open
Set txt = fil.OpenAsTextStream(1)                       'open file for reading as text
strtxt = txt.ReadAll                                    'read entire contents into strtxt variable
txt.Close                                               'close the file

 

[Tom Urtis]

For a text file, maybe this, at least it seems to work for me:


Function test()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
test = fso.GetFile("C:\Your\File\Path\YourFileNameCopy.txt").DateCreated
End Function


Then in a macro:

Sub Test1()
MsgBox test
End Sub


or as a simple udf
=test()

 

[Fat Cat]

Great Tom, it worked for me aswell. Many thanks

 

[Tazguy37]

Just out of curiousity, Tom:

Why make that sub a function, if it's not returning a value?

 

[Tom Urtis]

Sorry, I don't understand the question. It could have been a sub or a function, I created a function as the base answer just out of interest for flexibility with how it might be applied, either calling it from a macro, or as a UDF in my two examples for application. Either way, it does return a numeric value though, at least in 2003, which when formatted in a date and time format yields a date and time-looking creation date.

 

[Tazguy37]

I see what you mean. It is returning a value, just Variant, right? I must have missed where this line:

test = fso.GetFile("C:\Your\File\Path\YourFileNameCopy.txt").DateCreated

is set equal to the function.

I tend to ask stupid questions at 3 o'clock in the morning.