Columns: Macrium Reflect

Script for additional http://www.macrium.com/ columns.

See also https://resource.dopus.com/t/missing-columns-from-3rd-party-software/24277/1.

Installation and use:

  • Download macrium-columns.vbs.txt (930 Bytes).
  • Drag it to Preferences / Toolbars / Scripts.
  • When adding columns to the file display, you will find the new columns under the Script category.

Script code from the download above, for easy reference:

option explicit
' macrium-columns
' 
' 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 = "Macrium"
    initData.version = "1.0"
    initData.default_enable = true
    initData.min_version = "12.0"
    Dim props, prop, col
    Set props = DOpus.FSUtil.GetShellPropertyList("Macrium.*", "r")
    for each prop in props
        Set col = initData.AddColumn
        col.name = prop.raw_name
        col.method = "OnMacriumColumn"
        col.label = prop.display_name
        col.justify = "left"
        col.autogroup = true
        col.userdata = prop.pkey

    next    
End Function

Function OnMacriumColumn(scriptColData)
    scriptColData.value = scriptColData.item.shellprop(scriptColData.userdata)
End Function
3 Likes