DirListBoxに表示されるフォルダをシングルクリックしてパスを取得するには？

ミャンマゲ 2003-04-04 20:55:04 No: 106556

下記の処理において、ダブルクリックではなく、シングルクリックでフォルダのパスを取得したいのですが、どうすれば可能でしょうか？

＜現在の処理＞
DirListBoxに表示されたフォルダアイコンをダブルクリックすると、下位のフォルダが展開表示されます。
その時に発生するイベントプロシージャ「change」で下記のような処理を行い、ダブルクリックしたフォルダのパスを「TestPath 」に取得しています。

Private Sub Dir1_Change()
dim TestPath as string

'フォルダのパスを取得
TestPath = Dir1.Path

End Sub

よろしくお願いいたします。

あき☆彡 2003-04-05 06:56:48 No: 106557

以下のコードを追加すれば良いと思います

Private Sub Dir1_Click()
    If Dir1.List(Dir1.ListIndex) <> Dir1.Path Then
        Dir1.Path = Dir1.List(Dir1.ListIndex)
    End If
End Sub