选中Dir1控件新建的那个文件

求助 选中Dir1控件新建的那个文件
Private Sub Image1_建_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Image1_建.BorderStyle = 1
   Dim i As Long, strPath As String
   strPath = Dir1.Path & "\新建文件夹"
   i = 1
   If Dir(strPath, vbDirectory) > "" Then '2
      Do Until Dir(strPath & i, vbDirectory) = ""
         i = i + 1
      Loop
      MkDir strPath & i
      求助选中这个文件夹的代码？
   Else
      MkDir strPath
      求助选中这个文件夹的代码？
End If
   Dir1.Refresh                           '1
End Sub

[解决办法]
建立目录后刷新源目录，查找新建的文件夹的listindex值，然后设置 dir1.listindex=查找值即可