I wanted to familiarize myself with Directory Opus a bit, so wrote the following replacement for the 'F2' keyboard shortcut.
Out of the box, 'F2' will put the selected file in inline rename mode.
Using the following code, that behaviour stays the same, but pressing 'F2' when multiple files are selecetd, will open Advanced Rename for these files.
- Right-click the Directory Opus title bar
- Select Customize
- Activate the Keys tab
- Double-click 'F2'
- Fill in the fields as below
There are probably better ways (please post them!), but I had enough after an hour and a half trying to figure things out.
Maybe it can help someone ...
(The forum has instruction on how to post button-code, etc on the forum, but couldn't figure out how to post hotkey-code. This is the best I could think of)
' Pressing F2 when single file selected => Inline rename ' Pressing F2 when multiple files selected => Advanced rename ' (do nothing in other cases) Option Explicit Function OnClick(ByRef clickData) DOpus.ClearOutput Dim selectedcount selectedcount = clickData.func.sourcetab.selstats.SelItems If selectedcount = 0 Then DOpus.Output "No files" ElseIf selectedcount = 1 Then ' Single file clickData.func.command.RunCommand "RENAME INLINE" ElseIf selectedcount > 1 Then ' Multiple files clickData.func.command.RunCommand "RENAME ADVANCED" Else DOpus.Output "Something is really wrong here" End If End Function