' vbTest:
' Revision: v1.0.0 (vb)
' (c) 2015 steje
'
' This is a script for written for Directory Opus v11.
' See http://www.gpsoft.com.au/redirect.asp?page=scripts for development information.

Option Explicit


'//////////////////////////////////////////////////////////////////////////////////////////////////
' Called by Directory Opus to initialize the script
Function OnInit(ByRef initData)

   DOpus.Output("Initializing...")

   ' Provide basic information about the Script
   initData.min_version = "11.16"
   initData.name = "vbTest"
   initData.desc = "The vbTest script implements an Event Handler for testing."
   initData.copyright = "(c) 2015 steje"
   initData.version = "v1.0.0 (vb)"
   initData.default_enable = True

End Function


'//////////////////////////////////////////////////////////////////////////////////////////////////
' Called when an item is double-clicked
Function OnDoubleClick(doubleClickData)

   DOpus.Output(doubleClickData.item)
   If (doubleClickData.item.is_dir) Then
      DOpus.Output("...is a folder")
   Else
      DOpus.Output("...is a file")
   End If

End Function