| 以下的代码把盘中所有的目录都显示在 Listbox 中。需要一个 DriveListBox 和一个 DirListBox。如果 DirListBox 隐藏的话,处理可以快一些。 Dim iLevel As Integer, iMaxSize As Integer Dim i As Integer, j As Integer ReDim iDirCount(22) As Integer (责任编辑:admin) |
| 以下的代码把盘中所有的目录都显示在 Listbox 中。需要一个 DriveListBox 和一个 DirListBox。如果 DirListBox 隐藏的话,处理可以快一些。 Dim iLevel As Integer, iMaxSize As Integer Dim i As Integer, j As Integer ReDim iDirCount(22) As Integer (责任编辑:admin) |