// Lnk Extensions
// (c) 2018 Leo Davidson

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

function OnInit(initData)
{
	initData.name = "Lnk Extensions";
	initData.version = "1.0";
	initData.copyright = "(c) 2018 Leo Davidson";
	initData.url = "https://resource.dopus.com/t/columns-extensions-for-shortcut-targets/30364";
	initData.desc = "Ext column for shortcut targets";
	initData.default_enable = true;
	initData.min_version = "12.10";

	var col = initData.AddColumn();
	col.name = "Ext";
	col.method = "OnExt";
	col.label = "Ext";
	col.justify = "left";
	col.autogroup = false;
}

function OnExt(scriptColData)
{
	var ext = scriptColData.item.ext_m;

	if (ext != "" && ext[0] == ".")
		ext = ext.substr(1);
	ext = ext.toLowerCase();

	if (ext == "lnk")
	{
		var sh = new ActiveXObject("WScript.Shell");
		var sc = sh.CreateShortcut(scriptColData.item.realpath);
		var targetItem = DOpus.FSUtil.GetItem(sc.TargetPath);

		ext = targetItem.ext_m;

		if (ext != "" && ext[0] == ".")
			ext = ext.substr(1);
		ext = ext.toLowerCase();
	}

	scriptColData.value = ext;
	scriptColData.group = ext;
}