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

[daewoo]

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

[射天狼]

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

[zhourongbiao]

同样楼上！

[射天狼]

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

[wumy_ld]

用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