Option Explicit
Dim i As Integer

Private Sub cmdAddAll_Click()
'添加所有对象至Listbox
On Error Resume Next
For i = 0 To filList.ListCount - 1
   lstFileOnClosed.AddItem filList.List(i)
Next i
End Sub

Private Sub cmdAddSelect_Click()
'添加选择的对象至Listbox
On Error Resume Next
For i = 0 To filList.ListCount - 1
  If filList.Selected(i) = True Then                '判断对象是否被选中
    lstFileOnClosed.AddItem filList.List(i)
  End If
Next i
End Sub

Private Sub cmdRemoveAll_Click()
'从listbox中移出所有的对象
  lstFileOnClosed.Clear
End Sub

Private Sub cmdRemoveSelect_Click()
'从listbox中移出选择的对象
On Error Resume Next
For i = 0 To lstFileOnClosed.ListCount - 1
  If lstFileOnClosed.Selected(i) = True Then
     lstFileOnClosed.RemoveItem (i)
  End If
Next i
End Sub

Private Sub Command1_Click()
Debug.Print lstFileOnClosed.List(2)
End Sub

Private Sub DirList_Change()
'   更新文件列表框，使它与目录列表框保持同步。
    filList.Path = DirList.Path
End Sub
   
Private Sub DirList_LostFocus()
    DirList.Path = DirList.List(DirList.ListIndex)
End Sub
   
Private Sub DrvList_Change()
    On Error GoTo DriveHandler
    DirList.Path = DrvList.Drive
    Exit Sub
   
DriveHandler:
    DrvList.Drive = DirList.Path
    Exit Sub
  End Sub
   
Private Sub Form_Load()
'初始化FileListbox的格式及Drivelistbox的驱动盘
  filList.Pattern = "*.dwg"
  DrvList.Drive = App.Path
End Sub