ディレクトリ・リスト・ボックスでENTERキーにてフォルダを移動させる方法。

    ' ディレクトリの移動
    If KeyAscii = vbKeyReturn Then ' ENTERキー
        Dir1.Path = Dir1.List(Dir1.ListIndex)
    End If

参考URL
　http://support.microsoft.com/default.aspx?scid=kb;ja;JP410508



[VB2] ENTER キーにてディレクトリの移動をする方法
対象製品
文書番号 : 410508 
最終更新日 : 1999年3月21日 
リビジョン : 1.0 
この記事は、以前は次の ID で公開されていました: JP410508
概要
Visual Basic for Windows 2.0 のディレクトリ リスト ボックスはコモン ダイア
ログの [開く] ダイアログ等のディレクトリ リストと違い、[ENTER] キーを押して
もディレクトリの移動が行われません。この資料はコモン ダイアログのディレクト
リ リスト ボックスと同様に [ENTER] キーでディレクトリの移動を行う方法に
ついて記述しています。

サンプル
以下はディレクトリ リスト ボックス Dir1 の例です。
  Sub Dir1_KeyPress (KeyAscii As Integer)
      ' ディレクトリの移動
      If KeyAscii = 13 Then
          Dir1.Path = Dir1.List(Dir1.ListIndex)
      End If
  End Sub