Function OnInit(initData) initData.name = "RVT Columns" initData.desc = "Adds RVT Columns from the JTB World extension" initData.copyright = "(c) 2016 JTB World Inc." initData.version = "1.0" initData.default_enable = true initData.min_version = "12.0" Dim props, prop, col Set props = DOpus.FSUtil.GetShellPropertyList("rvt.*", "r") for each prop in props Set col = initData.AddColumn col.name = prop.raw_name col.method = "OnRVTColumn" col.label = prop.display_name col.justify = "left" col.autogroup = true col.userdata = prop.pkey next End Function Function OnRVTColumn(scriptColData) scriptColData.value = scriptColData.item.shellprop(scriptColData.userdata) End Function