请问各位一个有难度的问题

Question

请问用什么方法能将两个文件夹下的文件同时显示到一个FileListBox控件里 
例如temp  +  recent =  File1.Path 
谢谢！ 

Answer 1

用LISTBOX吧,将两个文件夹城的文件自己手工添加到列表里吧,文件列表框没有这个功能的.

Answer 2

Private Sub Command1_Click()
    Dim i As Long
    
    File1.Path = "c:\temp"
    For i = 0 To File1.ListCount - 1
        List1.AddItem File1.List(i)
    Next
    
    File1.Path = "c:\recent"
    For i = 0 To File1.ListCount - 1
        List1.AddItem File1.List(i)
    Next
End Sub

Answer 3

用FileSystemObject把两个文件下的文件显示在列表框里面，“工程”->“引用”，选中“microsoft scripting runtime”
以下是示例代码    Dim fso As FileSystemObject
    Dim fld As Folder
    Dim filTemp As File
    Dim strExtendName As String
    
    Set fso = New FileSystemObject
    Set fld = fso.GetFolder("c:\Picutre")
    
    For Each filTemp In fld.Files
        strExtendName = LCase(Right(filTemp, 4))
        If strExtendName = ".bmp" _
                Or strExtendName = ".jpg" _
                Or strExtendName = ".gif" _
                Or strExtendName = ".ico" _
                Or strExtendName = ".dib" _
                Or strExtendName = "jpeg" _
                Or strExtendName = ".jpe" _
                Or strExtendName = ".tif" _
                Or strExtendName = ".png" Then
             lstFileName.AddItem filTemp.Name
        End If
    Next