Function OnInit(initData)
	initData.name = "Media Created Column"
	initData.desc = "Imports the Media Created column from Explorer"
	initData.copyright = "(c) 2017 Leo Davidson"
	initData.version = "1.0"
	initData.default_enable = true
	initData.min_version = "12.6"

	Dim props, prop, col
	Set props = DOpus.FSUtil.GetShellPropertyList("System.Media.DateEncoded", "r")
	If (props.length = 1) Then
		Set prop = props(0)
		Set col = initData.AddColumn
		col.name = prop.raw_name
		col.method = "OnMediaCreatedColumn"
		col.label = prop.display_name
		col.type = "datetime,utc"
		col.justify = "right"
		col.autogroup = true
		col.userdata = prop.pkey
	End If
End Function

Function OnMediaCreatedColumn(scriptColData)
	scriptColData.value = scriptColData.item.shellprop(scriptColData.userdata)
End Function