>>251殿
ありがとうございます。とても参考になりました。

自分が間違えていたところも直して、以下のようにすれば
>>212氏のご希望に添えるかと思います。
（自分は^UPも欲しいのでそっちも考えてみました。）

^UP,%K"@BS"%:*maskentry a:d %:%K"@UP"%:*script "%0subdirringup.vbs"
^DOWN,%K"@BS"%:*maskentry a:d %:%K"@DOWN"%:*script "%0subdirringdown.vbs"

subdirringup.vbs
'!*script
if PPx.Extract("%C") = ".." then PPx.EntryIndex = PPx.EntryIndex - 1
if PPx.Extract("%C") = "." then PPx.EntryIndex = PPx.EntryDisplayCount + 1

if PPx.EntryAttributes and &H10 then
PPx.Execute("%j %C")
end if

subdirringdown.vbs
>>251