VB中DriveListbox、DriListbox、FileListbox与Listbox四者创建文件路径管理

 

复制如下代码至代码窗口中 

Option Explicit
Dim i As Integer

Private Sub cmdAddAll_Click()
'添加所有对象至Listbox
On Error Resume Next
For i = 0 To filList.ListCount - 1
   lstFileOnClosed.AddItemfilList.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) = TrueThen               '判断对象是否被选中
   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 ErrorGoTo DriveHandler
    DirList.Path= DrvList.Drive
    ExitSub
   
DriveHandler:
   DrvList.Drive = DirList.Path
    ExitSub
  End Sub
   
Private Sub Form_Load()
'初始化FileListbox的格式及Drivelistbox的驱动盘
  filList.Pattern = "*.dwg"
  DrvList.Drive = App.Path
End Sub