FileListBox
请问如何在程序中控制File框的选定几项？（如全选）
如何得知当前选定的文件名（多选时）
问题点数：40、回复次数：6Top
1 楼edyang（化石）回复于 2000-11-06 02:31:00 得分 40
Option Explicit
' 全选
Private Sub Command1_Click()
Dim i As Long
For i = 0 To Me.File1.ListCount - 1
Me.File1.Selected(i) = True
Next
End Sub
' 得到选中的文件名（多选）
Private Sub Command2_Click()
Dim i As Long
Dim strFiles As String
For i = 0 To Me.File1.ListCount - 1
If Me.File1.Selected(i) Then
strFiles = strFiles & Me.File1.List(i) & vbCrLf
End If
Next
MsgBox strFiles
End Sub
Top
2 楼ffb（项目急，顾不了结构的）回复于 2000-11-06 22:01:00 得分 0
谢谢，我回去试试，OK的话分全给你，急死我了，我用
for i=0 to file1.listcount-1
Debug.Print file1.list(i)
next
总出错Top
3 楼ffb（项目急，顾不了结构的）回复于 2000-11-06 22:03:00 得分 0
是
for i=0 to file1.listcount-1
Debug.Print File1.ListIndex(i)
next
总出错 Top
4 楼ffb（项目急，顾不了结构的）回复于 2000-11-06 23:58:00 得分 0
实在太感谢你了，分全给你！我都痛哭流涕了，谢谢.Top
5 楼h_x_k（一缕清烟）回复于 2000-11-08 15:47:00 得分 0
tip?给的什么提示？Top
6 楼skt642（）回复于 2001-05-31 18:01:00 得分 0
98990关注！Top
