>>358
できちゃった、ありがとう。
簡単だけど一応載せておくと、LOADEVENTで↓を実行しました。
If PPx.DirectoryType = 4 Then
PPx.Execute("*sortentry -1,-1,-1,B11111,1")
End If