FileListBox

Question

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

Answer 1

谢谢，我回去试试，OK的话分全给你，急死我了，我用
for i=0 to file1.listcount-1
Debug.Print file1.list(i)
next
总出错

Answer 2

是
for i=0 to file1.listcount-1
Debug.Print File1.ListIndex(i)
next
总出错