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