Thread: obtain file creation date using vba
View Single Post
 
Old 02-01-2013, 01:47 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,345
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
You can do that with code like:
Code:
Sub Test()
' get the file's Creation date.
Dim FSO As Object
Dim oItem As Object
Dim StrFile As String
StrFile = ActiveWorkbook.FullName
If FSO Is Nothing Then Set FSO = CreateObject("Scripting.FileSystemObject")
Set oItem = FSO.GetFile(StrFile)
MsgBox "The date & time the file:" & vbCr & StrFile & vbCr & "was created is: " & oItem.DateCreated
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote