option explicit

' Kind Column
' (c) 2017 jpotter

' This is a script for Directory Opus.
' See http://www.gpsoft.com.au/DScripts/redirect.asp?page=scripts for development information.



' Called by Directory Opus to initialize the script
Function OnInit(initData)
	initData.name = "Kind Column"
	initData.version = "1.0"
	initData.copyright = "(c) 2017 jpotter"
'	initData.url = "https://resource.dopus.com/viewforum.php?f=35"
	initData.desc = "Adds a column displaying a file's kind"
	initData.default_enable = true
	initData.min_version = "12.0"

	Dim col

	Set col = initData.AddColumn
	col.name = "Kind"
	col.method = "OnKind"
	col.label = "Kind"
	col.justify = "left"
	col.autogroup = true
End Function


' Implement the Kind column
Function OnKind(scriptColData)
	scriptColData.value = scriptColData.item.ShellProp("System.KindText", "R")
End Function