※ 那些属性到哪儿去了？

[xiolig]

两个问题：
1、为什么有的属性我在属性框里见不到，如 DriveListBox 的 Drive 属性？
2、书上说在 FileListBox 中选择多个文件名时，FileName 属性返回由空格分隔的多个文件名，我本来是对用空格分隔的可靠性有点质疑，结果却发现总是返加最后一次单击的文件名，而且根本不考虑是不是选择了它，为什么？ （我已经设置 MultiSelect 属性为 1 或 2 了（书上说是设置 MultiFile 属性为 True，可我没有找到 MultiFile 属性）

[pasl]

1、如 DriveListBox 的 Drive 属性在属性栏中是不可见的，在代码区中会自动出现在下拉框中
2、选取多个文件时，用以下的办法获取，而不是在FileName 中获取！
For i = 0 To File1.ListCount - 1
If File1.Selected(i) Then List1.AddItem File1.List(i)
Next i

'用于获取File1控件中的多选文件
Private Sub Command1_Click()
Dim vv As Variant, i As Long
List1.Clear
For i = 0 To File1.ListCount - 1
If File1.Selected(i) Then List1.AddItem File1.List(i)
Next i
End Sub

'用于获取CommonDialog1控件中的多选文件

Private Sub Command2_Click()
CommonDialog1.Flags = FileOpenConstants.cdlOFNAllowMultiselect Or FileOpenConstants.cdlOFNExplorer
CommonDialog1.Filter = "*.*|*.* "
CommonDialog1.MaxFileSize = 1024 * 5
CommonDialog1.ShowOpen
Dim vv As Variant, i As Long
vv = Split(CommonDialog1.FileName, Chr(0))
List1.Clear
For i = 0 To UBound(vv)
List1.AddItem vv(i)
Next i

End Sub