多种图片文件的列表问题

hao123

如何将对应目录中的图片文件都列表在其中？这里只做了JPG的，若要GIF、JPG、BMP、WMF都列表呢？

 

vNbZPljx.rar (8.51 KB, 下载次数: 16)

2007-2-9 17:22 上传

点击文件名下载附件
多种图片文件的列表问题

绿风

可重复几次代码

 .LookIn = grt1 
         .FileName = "*.bmp"  '每次将文件类型进行更改
    'ListBox1.Clear
    If .Execute(SortBy:=msoSortByFileName, sortorder:=msoSortOrderAscending) > 0 Then
        For I = 1 To .FoundFiles.Count
           ListBox1.AddItem FGetFileName(.FoundFiles(I))
        Next I
         ListBox1.Text = ListBox1.List(0)
    End If
    If .Execute(SortBy:=msoSortByFileName, sortorder:=msoSortOrderAscending) = 0 Then
End If

'只是运行速度会慢．

守柔

请参考这种方式：

Sub Example()
    Dim myDialog As FileDialog, oFile As Object, strName As String
    Dim FSO As Object, myFolder As Object, myFiles As Object
    Set myDialog = Application.FileDialog(msoFileDialogFolderPicker)
    With myDialog
        If .Show <> -1 Then Exit Sub
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set myFolder = FSO.GetFolder(.InitialFileName)
        Set myFiles = myFolder.Files
        For Each oFile In myFiles
            strName = UCase(oFile.Name)
            strName = VBA.Right(strName, 3)
            If strName = "GIF" Or strName = "JPEG" Or strName = "JPG" Or strName = "PNG" _
            Or strName = "BMP" Or strName = "WMF" Then
                Debug.Print oFile.Name
            End If
        Next
    End With
End Sub

hao123

收到,不错,谢了

菊石泽露

学习，学习！

菊石泽露

如何把列表重定向为文件输出呢？是不是也很有价值呀！