Columns: Macrium Reflect

Script for additional columns.

See also

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 for development information.

' Called by Directory Opus to initialize the script
Function OnInit(initData) = "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 = prop.raw_name
        col.method = "OnMacriumColumn"
        col.label = prop.display_name
        col.justify = "left"
        col.autogroup = true
        col.userdata = prop.pkey

End Function

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