Excel: Erstellungsdatum

Sub GetDateCreated()
	'This requires a Reference to Microsoft Runtime Scripting Library
	Dim FSO As Scripting.FileSystemObject
	Dim FileItem As Scripting.File
	Dim DateCreated As String

	Set FSO = New Scripting.FileSystemObject
	Set FileItem = FSO.GetFile(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name)
	DateCreated = FileItem.DateCreated
End Sub