VB code for obtaining file attributes

Question

Hi

From Excel I would like to access the attributes of a file whose path name and title I have within the code.

I would like to access the

Creation Date

Modified Date

Size

Once accessed, I would like to store them in cells B2, C2, D2.  Ideally I would not like the "modified date" to get changed when I access these attributes.

How could I do that via a VB code/macro in Excel?

Many thanks in anticipation

Answer 1

Hi,

Paste the following script to get your desired results:

Make sure to change strFilename location as your file location.

Sub GetDateCreated()

Dim oFS As Object

Dim strFilename As String

'Put your filename here

strFilename = "C:\Users\Name\Desktop\Book1.xlsm"

'This creates an instance of the MS Scripting Runtime FileSystemObject class

Set oFS = CreateObject("Scripting.FileSystemObject")

Range("B2") = oFS.GetFile(strFilename).DateCreated

Range("C2") = oFS.GetFile(strFilename).DateLastModified

Range("D2") = oFS.GetFile(strFilename).Size & " Bytes"

Set oFS = Nothing

End Sub

Answer 2

What if i want last author of any file?

please give code for that.

Answer 3

You're welcome,

You can replace D2 line with this code to get values in Kb instead of bytes.

 Range("D2") = Format(oFS.GetFile(strFilename).Size / 1024, "#,###.##") & " Kb"

Please vote back as an answer if that was useful for you.

Answer 4

Thanks Ramz Aftab.  I will try this ASAP.